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3 " , Validate the port. 
rtPrinterControl::ValidatePort() 



-f Validate the driver. 
TPrinterControl::ValidateDriver() 
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Set the new printer name. 
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Implementation CODE 

Mainllnit.h 

// 

#ifndef MainUnitH 
#define MainUnitH 

// 

#include <Classes.hpp> 
#inctude <Controls.hpp> 
#include <StdCtrls.hpp> 
#include <Forms.hpp> 
#include <Dbtables.hpp> 
^include <NetworkInfo.h> 
#include <ShellApi.h> 
#include <ExtCtrls.hpp> 
#include <TriceratMessaging.h> 
#inc!ude <DirTools.h> 

// 

class TMainForm : public TForm 

f 

published: // IDE-managed Components 

2 TNetworklnfo *FNetworkInfo; 
n TButton *CloseBtn; 

est 

n TTimer *lcaPrinterSecurity; 

=1 TTimer * Initialize; 

j void _fastcall CloseBtnClick(TObject * Sender); 

fs void fastcall FormCreate(TObject *Sender); 

Z void fastcall FonnShow(TObject *Sender); 

1 void fastcall InitializeTimer(TObject *Sender); 

: " void fastcall FormHide(TObject *Sender); 

void fastcall FonnActivate(TObject *Sender); 

2 void fastcall IcaPrinterSecurityTimer(TObject *Sender); 

f z void fastcall FormClose(TObject *Sender, TCIoseAction &Action); 

private: // User declarations 

3 AnsiString PrinterlnfoPath; 
3 TStringList *LocalPrinters; 

TStringList *NetworkPrinters; 
bool bClearMetwork Printers; 
bool bSetlcaPrinterRights; 
bool DefaultPrinterSet; 
bool Initializing; 
int IcaPrinterRightsDelay; 
int StartupDelay; 

void fastcall AddOwners(TStrings* sql); 

void fastcall AddLocalPrinters(); 

void fastcall AddNetworkPrinters(); 

void OnDesktopInit(TMessage Message); 
void ClearNetworkPrinters(); 
void CleanUp(); 

void OnQueryEndSession(TMessage Message); 
void OnEndSession(TMessage Message); 
bool GetPrinterRights(TStringList * Users); 
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public: // User declaratl 

fastcall TMainForm(TComponent* Owner); 

fastcall ~TMainForm(); 

int ProductID; 
AnsiString LogFile; 
TDirTools *DirTools; 



protected: 

BEGINMESSAGEJVIAP 
VCL MESSAGE_HANDLER(TM D2KJNIT, TMessage, On Desktop I nit) 
VCL MESSAGE_HANDLER(WM_ENDSESSION, TMessage. OnEndSession) 

ENDJVlESSAGEJVlAP(TForm) 

}; 

// 

extern PACKAGE TMainForm *MainForm; 

// 

#endif 



MainUnit.Cpp 
^include <vcl.h> 
#pragma hdrstop 

^include "MainUnit.h" 
^include "Network info.h" 
jMftinclude <PrinterControl.h> 
flfeinclude <RegTools.h> 



|£#pragma package(smartinit) 
|3#pi*ag'Tia 'ink "Networklnfo" 
f ^pragma resource '"".dfm" 

- — 



"TMainForm *MainForm; 
//- - 



STEP 100 

fastcall TMainFonn::TMainForm(TComponent* Owner) 

: TForm(Owner) 

{ 

Session->Active = false; 
LocalPrinters = new TStringList; 
NetworkPrinters = new TStringList; 
DefaultPrinterSet = false; 
Initializing = false; 

if 

STEP 170 

fastcall TMainForm ::~~TMainForm() 

f 
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delete LocalPrinters; 
delete NetworkPrinters; 

DirTools->WriteLog(LogFile, "Terminating PMP Client"); 
delete DirTools; 





/A 



void fastcall TMainForm::AddOwners(TStrings* sqi) 



AnsiString ClientName; 
AnsiString ComputerName; 
ClientName = getenv("CLIENTNAME"); 
if (!ClientName.lsEmpty()) 

ClientName = CiientName.UpperCase(); 
ComputerName - getenv("COMPUTERNAME n ); 

FNetwork I n fo->C I ear(); 

sql->Add(" IN (SELECT ID FROM Owners WHERE Name - '" + 
FNetwork lnfo->UserName + '""); 

if (FNetworkInfo->LocalComputerName ! = ("WW" + FNetworklnfo->DomainName)) 



FNetworklnfo->SourceServerName = FNetworkInfo->DomainControilerName; 

for (int i = 0; i < FNetworklnfo->MyGlobaiGroupCount; i++) 

sql->Add(" OR Name - ,M + FNetworkInfo->MyGlobalGroupNames[i] + ,,m ); 



f! FNetworkInfo->SourceServerName = ""; 

a for (int i = 0; i < FNetworkInfo->MyLocalGroupCount; i++) 

3 sql->Add(" OR Name - *" + FNetworkInfo->MyLocalGroupNames[i] + ); 

*\ if (!ClientNaine.IsEmpty() && ClientName != ComputerName) 

% s sql->Add(" OR Name = ,n + ClientName + ); 

Z if (!ComputerName.IsEmpty()) 

" sql->Add(" OR Name = + ComputerName + ""'); 

sql->Add(")"); 

} 

// 

STEP 130 

void fastcall TMainForm::AddLocalPrinters() 

{ 

TQuery* query = new TQuery(NULL); 
int i; 

AnsiString SourceServer; 
AnsiString Monitor; 
AnsiString Port; 
AnsiString FileName; 
AnsiString PrinterName; 
AnsiString NewPrinterName; 
AnsiString ClientName; 
bool IsDefault; 
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TStringList * Messages = new^WhgList(); 

TStringList *Users = new TStringList(); 

GetPrinterRights(Users); 

ClientName = getenvfCLIENTNAME"); 
if (!ClientName.IsEmpty()) 

ClientName = ClientName.UpperCase(); 
else 

ClientName = FNetwork!nfo->UserName; 
query->DatabaseName = "Tricerat PMP"; 
STEP 200 

query->SQL->Add("SELECT o.Ordinal, a.Ordinal, p.FileName, p.Name, "); 
query->SQL->Add("p.Port, p.Monitor, p.SourceServer, a.IsDefault "); 
query->SQL->Add("FROM Owners o, AssignedLocalPrinters a, LocalPrinters p "); 
query->SQL->Add( n WHERE o.lD - a.OwnerlD AND a.LocalPrinterlD = p.ID "); 
query->SQL->Add("AND p.Disabled = False "); 
query->SQL->Add("AND a.OwnerlD M ); 

STEP 210 

AddOwners(query->SQL); 

^ query->SQL->Add(" ORDER BY Ordinal"); 

: W try 

y { 

fySTEP 220 

«= query->Open(); 

% : i 

3 STEP 230 

13- while (query->Active && !query->Eof && query->RecordCount > ++i) 

fy < 

|3 //Add printers here. 

;f=j SourceServer = query^FieldByNamef'SourceServer'^AsString; 

Monitor = query->FieldByName( H Monitor n )->AsString; 
Port = query->FieldByName("Port n )->AsString; 
FileName = query->FieldByName("FileName")->AsString; 
PrinterName = query->FieldByName( M Name n )->AsString; 
IsDefault - query->Fie!dByName("IsDefault n )->AsBoolean; 
NewPrinterName = ClientName + "#" + PrinterName; 

try 

{ 

STEP 240 

//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControl( 
PrinterlnfoPath, SourceServer); 

if (!Port.IsEmpty() && ! Monitor. Is Em pty()) 
PrinterControl->RemapPort(Port, Monitor); 

STEP 250 

//Create the temp printer. 

if (PrinterControl->CreateLocalPrinter(FileName, NewPrinterName, Users)) 
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LocalPrinters->Add(NewPrinterName); 
if (IsDefault && IDefaultPrinterSet) 

{ 

STEP 260 

if (PrinterControl->SetDefaultPrinter(NewPrinterName)) 
DefaultPrinterSet = true; 

} 

if (0 < PrinterControl->Messages->Count) 

Messages->Add(PrinterControI->Messages->Text); 

delete PrinterControl; 

} 

catch(...) 



Messages->Add("Error Creating Printer V" + NewPrinterName + "\" 



query->FindNext(); 
NextQ; 



J catch (...) 
{ 
} 



a { 



] query->Close(); 
delete query; 

^ Users->Clear(); 
I delete Users; 

fSTEP 270 

I if (0 < Messages->Count) 
J f 

MessageBox(NULL, Messages->Text.c_str(), "PMP CLient", 
MBOK | MB ICON ERROR | MB SYSTEMMODAL); 

} 



} 

//-■ 



STEP 140 

void fastcall TMainForm::AddNetworkPrinters() 

TQuery* query = new TQuery(MULL); 
int i; 

AnsiString Map; 
AnsiString PrinterName; 
AnsiString FullShareName; 
AnsiString Full PrinterName; 
AnsiString Argument; 
bool IsDefault; 
DWORD dwError; 
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fl^MP"; 



query->DatabaseName = "Trie* 
STEP 300 

query->SQL->Add("SELECT o.Ordinal, a.Ordinal, p.Name, a.Map, a.IsDefault "); 
query->SQL->Add("FROM Owners o, AssignedNetworkPrinters a, Network Printers p "); 
query->SOL->Add("WHERE o.ID = a.OwnerlD AND a.NetworkPrinterlD = p.ID "); 
query->SQL->Add("AND p. Disabled = False "); 
query->SQL-> Add(" AN D a.OwnerlD "); 

STEP310 

AddOwners(query->SQL); 

query->SQL->Add( ,, ORDER BY Ordinal"); 

try 
{ 

//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControl( 
NULL, NULL); 

STEP 320 

query->Open(); 

feTEP330 

I i = -l; 

1 while (query-> Active && !query->Eof && query->RecordCount > ++j) 



//Add printers here. 
I PrinterMame = query->FieldByName("Name">>AsString; 

; Map = query->FieldByName("Map">>AsString; 
I IsDefault = query->FieldByName("lsDefault")->AsBoolean; 

: STEP 340 

i if (!AddPrinterConnection(PrinterName.c_str())) 

{ 

dwError = GetLastError(); 
AnsiString Message; 

Message = "Unable to connect to printer " + PrinterName + " \n\n"; 
Message = Message + "Error Code = " + String(dwError); 

query->FindNext(); 
continue: 



FullShareName = PrinterControl->GetPrinterShareName(PrinterName); 
FullPrinterName = PrinterControl->GetPrinterFullName(PrinterName); 

NetworkPrinters->Add(FullPrinterName); 

STEP 350 

if (IsDefault && IDefaultPrinterSet) 



if(!PrinterControl->SetDefaultPrinter(FullPrinterName» 
ShowMessage(PrinterControl->Messages->Text); 

DefaultPrinterSet = true; 
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if(!Map.IsEmpty()) 




Argument = "use " + Map + " /d"; 

ShellExecute(NULL, "open", "net", Argumentx_str(), 
NULL, SW HIDE); 

Argument - "use " + Map + " " + FullShareName; 

ShellExecute(NULL, "open", "net", Argument.c_str(), 
NULL, SW HIDE); 

i 
j 

STEP 360 

MessageBox(NULL, Message.c_str(), "PMPCIient", 

MB OK | MB JCONERROR | MB SYSTEMMODAL); 

query->FindNext(); 

Next(); 

} 

delete PrinterControl; 

C J > 

catch (...) 

p { 

i 1 x 

~~ s 

ifji query->Close(); 

~ delete query; 

V- if 

3 // — 



ryvoid fastcall TMainForm::C]oseBtnClick(TObject *Sender) 

CleanUpO: 



void fastcall TMainForm::FormCreate(TObject *Sender) 

f 
i 

FormHide(Sender); 

} 

// 



void fastcall TMainForm::FormShow(TObject *Sender) 

{ 

TRegistry *Reg = new TRegistry; 

LogFile = String(getenv( M TEMP ,, )) + "WPMP.txt"; 

DirTools = new TDirTools(); 

ShowWindow(App!ication->Handle, SWHIDE); 

Reg->RootKey - HKEY LOCAL MACHINE; 
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if(Reg->OpenKey("Software\^Pferat\\PMP", true)) 
{ 

PrinterlnfoPath = Reg->ReadString("Printerlnfo Path"); 
try 

f 

X 

bClearNetworkPrinters = Reg->ReadBool("ClearNetworkPrinters M ); 

} 

catch (...) 

{ 

bClearNetworkPrinters = false; 

Reg->WriteBool("ClearNetworkPrinters", bClearNetworkPrinters); 

} 

try 

{ 

bSetlcaPrinterRights = Reg->ReadBool("SetIcaPrinterRights"); 

} 

catch (...) 

{ 

bSetlcaPrinterRights = false; 

Reg->WriteBool("SetlcaPrinterRights'\ bSetlcaPrinterRights); 

s 

try 

{ 

IcaPrinterRightsDelay = Reg->Readlnteger("lcaPrinterRightsDelay"); 

} 

catch (...) 

s { 

f| IcaPrinterRightsDelay = 15; 

Reg->Writelnteger("IcaPrinterRightsDelay", IcaPrinterRightsDelay); 

£ } 

fs try 

Z StartupDelay = Reg->ReadInteger("StartupDelay"); 

i > 

catch (...) 

{ 

StartupDelay = 30; 

Reg->WriteInteger( n StartupDelay'\ StartupDelay); 

} 



} 

Reg->CloseKey(); 
Reg->Free(); 

if (PrinterlnfoPath. IsEmptyO) 
f 

MessageBox(NULL, "Unable to Read Registry Values!", "PMPCIient", 
MBJDK | MBJCONERROR | MB_SYSTEM MODAL); 

Close(); 

} 

if(5< StartupDelay) 
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Initialize->Interval = Startuj^^y * 1000; 
else 

Initialize->Interval = 5000; 
DirTools-> WriteLog(LogFile, "StartupDelay = " + String(Initialize->Interval)); 
STEP 1 10 

//This can be stopped if Desktop sends us a message. 
Initialize->Enabled = true; 

if (bSetlcaPrinterRights) 

{ 

if (5 < IcaPrinterRightsDelay) 

IcaPrinterSecurity->Interval = IcaPrinterRightsDelay * 1000; 

else 

IcaPrinterSecurity->lnterval = 5000; 
IcaPrinterSecurity->Enabled = true; 

} 

// 

STEP 160 

^fvoid TMainFonn::CleanUp() 

\H int i; 

\3 HWND hWnd; 

ill 

If LJ //Wait for RegSet. 

,S hWnd = (HWND)l; 

il fl while ("NULL != hWnd) 

»' { 

* & hWnd = FindWindowC'TRegSetMainForm", NULL); 

Ifl if (NULL != hWnd) 
« < 

IS SendMessage(hWnd, WM_CLOSE, NULL, NULL); 

;-j3 Ci } 

■*s ay 

Sleep(lOO); 

} 

try 
{ 

//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControl( 
NULL, NULL); 

i = -l; 

while (LocalPrinters->Count > ++i) 

t 
X 

PrinterControl->DeleteLocalPrinter(LocalPrinters->Strings[i]); 

} 

delete PrinterControl; 
i = -l; 
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while (NetworkPrinters->C(HR ++i) 

s 

\ 

DeIetePrinterConnection(NetworkPrinters->Strings[i].c_str()); 



} 

catch(...) 

{ 



i 

II- 



STEP 120 

void TMainForm::ClearNetworkPrinters() 



try 

{ 



//Constructor to point to local computer for drivers. 
TPrinterControi *PrinterControl = new TPrinterContro!( 
NULL, NULL); 

PrinterControl->ClearNetworkPrinters(); 

delete PrinterControl; 



j } 



J- catch(...) 



;!//- 



void fastcall TMainForm::InitializeTimer(TObject *Sender) 

i lnitialize->Enabled = false; 

1 Initializing = true; 

\ LogFile = String(getenv("TEMP")) + "WPMP.txt"; 

! DirTools = new TDirTools(); 

- try 

{' 

if (bClearNetworkPrinters) 

{ 

DirTools->WriteLog(LogFile, "Clearing Network Printers"); 
ClearNetworkPrinters(); 

} 

Session->Active = true; 

DirTooIs->WriteLog(LogFile, "Add Local Printers"); 
AddLocaiPrintersQ; 

DirTools->WriteLog(LogFile, "Finished With Local Printers"); 

DirTools->WriteLog(LogFile, "Add Network Printers"); 
AddNetworkPrinters(); 

DirTools->WriteLog(LogFile, "Finished With Network Printers"); 
Session->Active = false; 
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catch(...) 



Initializing - false; 

} 

// 



void fastcall TMainForm::lcaPrinterSecurityTimer(TObject *Sender) 

{ 

IcaPrinterSecurity->Enabled - false; 



try 



//Constructor to point to local computer for drivers. 
TPrinterControl *PrinterControl = new TPrinterControi( 
NULL NULL); 

PrinterControl->SetlcaPrinterRights(); 

delete PrinterControl; 



z f 

catch(...) 

n - { 
3 } 



^void fastcall TM ain Form:: Form Hide(TObject *Sender) 

3{ 

y ShowWindow(Application->Handle, SW HIDE); 

i BorderStyle = bsNone; 

^ Width - 0; 

t Height = 0; 

// - - - — 



void fastcall TMainForm::FormActivate(TObject *Sender) 

{ 

ShowWindow(Application->Hand!e, SW_HIDE); 

} 

// 



void TMainFonn::OnDesktopInit(TMessage Message) 
{ 

if (0 == Message. WParam) 
{ 

DirTools->WriteLog(LogFile, "PMP Received Message Desktop is Initializing") 
while(Initializing) 

{ 

Sleep(IOOO); 
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Initialize->Enabled = false; 

>. 
s 

if(l == Message. WParam) 
{ 

DirTools->WriteLog(LogFile, "PMP Received Message From Desktop to Initialize"); 
DefauItPrinterSet - false; 
i n i t i a I i ze-> En a b 1 ed = false; 
lnitialize->lnterval = 1000; 
Initialize->Enabled = true; 

} 

} 

// 



STEP 150 

void TMainForm::OnEndSession(TMessage Message) 

{ 

DirToo!s->WriteLog(LogFile, "PMP Cleanup In Progress"); 
CleanUp(); 

DirTools->WriteLog(LogFile, "PMP Cleanup Finished"); 
A p p I i cat i on - >Term i n ate( ) ; 

«} 

\3// - - 

Cn 

iJvoid fastcall TMainForm::FormClose(TObject *Sender, TCIoseAction &Action) 

fy{ 

CieanUpO; 

m 

3 // 

Jilbool TMainForm::GetPrinterRights(TStringList * Users) 

'^z TRegistry *Reg = new TRegistry(); 

W if(!Users) 

Users = new TStringList(); 

Users->Ciear(); 

Reg->RootKey = HKEY_LOCAL_MACHIME; 

if (Reg->OpenKey("Software\\Tricerat\\PMP", true)) 
s 

if (Reg->ValueExists("PrinterRights")) 

{ 

try 

( 

\ 

AnsiString tempString; 
BYTE *pTemp = NULL; 
DWORD dwType = 0; 
DWORD dwSize-0; 
int i = 0; 

RegQueryValueEx(Reg->CurrentKey, "PrinterRights", 
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NULL, &dwType, p^pb, &dvvSize); 

pTemp = (BYTE*)ma!loc(dwSize); 
ZeroMemory(pTemp, dwSize); 

RegQueryValueEx(Reg->CurrentKey, "PrinterRights", 
NULL, &dwType, pTemp, &dwSize); 

if(0<dwSize) 



i = -l; 

while ((int)dwSize > ++i) 
{ 

if('\0' = (char)pTemp[i]) 

{ 

if (!tempString.IsEmpty()) 
Users->Add(tempString); 



tempString= ""; 

i 

else 

{ 

tempString = tempString + (char)pTemp[i]; 



} 



3 } 
3 free(pTemp); 

a 

y ) 



catch(...) 

{ 
} 



else 



RegSetVaIueEx(Reg->CurrentKey, "PrinterRights", 
NULL, REG_MULTI_SZ, NULL, 0); 



Reg->CloseKey(); 
Reg->Free(); 

return true; 



PrinterControl.h 

// 

#ifndef PrinterControlH 
#define PrinterControlH 

// 

//include <SysUtils.hpp> 
#include <Controls.hpp> 
//include <C!asses.hpp> 
//include <Forms.hpp> 
//include <winspool.h> 
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^include <stdio.h> 
^include <iostream.h> 
^include <fstream.h> 
^include <StUtils.hpp> 
#include <RegTools.h> 
#include ,, .A\DDK\\lnc\\winsplp.h M 

#define CONTROLFULL 1 
^define TEMP_BUFFER_SIZE 128000 

// — - -~~ 

class PACKAGE TPrinterControl : public TComponent 

{ 

private: 

static AnsiString CleanupFilename(AnsiString Filename); 
protected: 

PRINTERJNFO_2 *SelectedPrinterInfo; 

DWORD SelectedPrinterlnfoSize; 

AnsiString PrtlnfoPath; 

AnsiString PrinterName; 

AnsiString PortMonitorDescription; 
O AnsiString NewPrinterName; 
\3 AnsiString SourceServerName; 
If! AnsiString NewPortName; 

AnsiString NewPortMonitor; 
|j DWORD dwDevModeSize; 

H DRIVER JNFO_3 *GetRemoteDriverInfo(AnsiString ServerName, 
|f| AnsiString DriverName); 

3 TStringList *CopyDriverFi!es(TStringList *SourceFiles); 

1^ bool ValidateDriver(AnsiString DriverName); 

■f~. bool ValidatePort(AnsiString PortName, AnsiString PortMonitor); 

•f~z bool ValidateMonitor(AnsiString MonitorName); 

booi PrinterSetOwnerOnlyRights(AnsiString PrinterName); 
#t bool PrinterSetCurrentUserOnlyRights(AnsiString PrinterName); 

J~ booi PrinterAddAccessRights(AnsiString PrinterName, AnsiString UserName, int nAccess); 
^ bool WritePrinterinfo(AnsiString FileToSaveTo); 

bool ReadPrinterlnfo(AnsiString FileTo Read From); 

bool SaveLocalPrinter(); 

bool CreateLocalPrinter(); 

bool SetDefaultPrinter(); 

AnsiString GetIcaCIientPort(AnsiString OldPort); 
AnsiString GetPortMonitor(AnsiString PortName); 



public: 

fastcall TPrinterControl(AnsiString PathToPrinterlnfoFiles, 

AnsiString SourceServerNameForDrivers); 
fastcall ~TPrinterControl(); 



bool PrinterAddAccessRights(AnsiString PrinterName, TStringList *Users, int nAccess); 
bool SetDefaultPrinter( AnsiString PrinterToSetAs Default); 
bool CreateLocalPrinter(AnsiString PrinterToCreate); 
bool CreateLocalPrinter(AnsiString PrinterToCreate, 




AnsiString MewPrinterTd^Hie); 

bool CreateLocalPrinter(AnsiStrmg PrinterToCreate, 

AnsiString New PrinterToCreate, TStringList *Users); 
bool SaveLocalPrinter(AnsiString PrinterToSave, AnsiString SaveName); 
bool SaveLocalPrinter( AnsiString PrinterToSave); 
bool RemapPort(AnsiString Port, AnsiString Monitor); 
bool PrinterPropertiesDialog(AnsiString PrinterName, HANDLE hWnd); 
bool DeleteLocalPrinter(AnsiString PrinterName); 
static PRINTER_INFO_2 *GetPrinterlnfo2(AnsiString PrinterName); 
AnsiString GetStatusString(DWORD dwStatus); 
TStringList *GetLocalDrivers(); 
TStringList *GetLocalPrinters(); 
TStringList *GetNetworkPrinters(); 
TStringList *GetLocalMonitors(); 
TStringList *GetLocalPorts(); 
TStringList *GetConfigFileList(); 

TStringList *LoadPrinterlnfoFromFile(AnsiString PrinterName); 
AnsiString GetDefaultPrinterQ; 



TStringList *Messages; 

bool DeletePrinterConfig(AnsiString PrinterConfigName); 

AnsiString GetPrinterShareName(AnsiString PrinterName); 

AnsiString GetPrinterFuliName(AnsiString PrinterName); 
£3 bool ClearNetworkPrinters(); 
O bool SetIcaPrinterRights(); 

in bool CopyConflguration(AnsiString Source, AnsiString Destination); 
~\3 bool SaveLocalDriver(AnsiString DriverName); 

■'3 . 3 

fjj published: 

1=}; 

Irf v 

*' ! #endif 

^=PrinterContro!.Cpp 

^include <vcl.h> 
^pragma hdrstop 
^4/ pragma warn -aus 

%j 

#include "PrinterControl.h" 
#pragma package(smartjnit) 

typedef bool (*ADDPORTEX)(LPWSTR, DWORD, LPBYTE, LPWSTR); 

// - - 

// ValidCtrCheck is used to assure that the components created do not have 
// any pure virtual functions. 

// 

static inline void ValidCtrCheck(TPrinterControl *) 
new TPrinterControl(NULL, NULL); 



fastcall TPrinterControl::TPrinterControl(AnsiString PathToPrinterlnfoFil 
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AnsiString SourceServerNanrSWDrivers) 
: TCoinponent(NULL) 

SelectedPrinterlnfo - new PRINTERINF02; 
ZeroMemory(SelectedPrinterlnfo, sizeof(*Se!ectedPrinterlnfo)); 

PrtlnfoPath - PathToPrinterlnfoFiles; 

if (SourceServerNameForDrivers.lsEmptyO) 

{ 

SourceServerName ~ "WW"; 

SourceServerName = SourceServerName + getenv("COMPUTERNAME"); 

i 
f 

else if (0 == SourceServerNameForDrivers,SubString(0, 2).AnsiCompareIC("WW")) 

{ 

SourceServerName = "WW" + SourceServerNameForDrivers; 

\ 

else 

f 
i 

SourceServerName = SourceServerNameForDrivers; 



Messages = new TStringList; 



; ! j__fastcall TPrinterControl::~TPrinterControl() 



: y if (SelectedPrinterlnfo) 

Lj free(SelectedPrinterlnfo); 

~ SelectedPrinterlnfo = NULL; 

fl Messages->Free(); 

'} 





I mamespace Printercontrol 



void fastcail PACKAGE RegisterQ 



TComponentClass classes[l] = { classid(TPrinterControl)}; 

RegisterComponents("Tricerat", classes, 0); 

} 



//- 



TStringList *TPrinterControl::GetLocalDrivers() 

{ 

TStringList *LocalDriverList = new TStringList; 
DRIVERJNFO_3 *InstalledDriverlnfo = new DRIVER INFO 3; 
DWORD InstalledDriverlnfoReturned; 
DWORD dwSize; 
DWORD dwNeeded; 
int i; 

EnumPrinterDrivers(NULL, NULL, 3, (unsigned char*)InstalledDriverlnfo, 
0. &dwSize, &InstalledDriverInfoReturned); 

InstalledDriverlnfo = (DRIVERJNFOJ*)mailoc(dwSize); 
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ZeroMemory(lnstalledDriverli^^PvvSize); ^ 

if (!EnumPrinterDrivers(NULL, NULL, 3, (unsigned char*)lnstalledDriverInfo, 
dwSize, &dwNeeded, &InstaliedDriverlnfoReturned)) 



Local DriverList->Clear(); 
while ((int)InstalledDriverlnfoReturned > ++i) 
LocalDriverList->Add(InstalledDriverlnfo[i].pName); 

free( I nsta 1 1 ed Dr i ver I n fo); 
return LocaiDriverList; 



TStringList *TPrinterControl::GetLocalPrinters() 

{ 

TStringList *LocalPrinterList = new TStringList; 

PRINTERJNFO_2 *InstalledPrinter1nfo = new PRINTER_INFO_2; 

DWORD InstalledPrinterlnfoReturned; 
3 DWORD dwSize; 
3 DWORD dwNeeded; 
fl int i; 

J EnumPrinters(PRINTER_ENUM LOCAL, NULL, 2,(BYTE*)lnstailedPrinterInfo, 
0, &dwSize, &InstalledPrinterlnfoReturned); 

f| InstalledPrinterlnfo = (PRINTER_INFO_2*)malioc(dwSize); 
ZeroMemory(InstaHedPrinterInfo, dwSize); 



3 if (!EnumPrinters(PRiNTER_ENUM_LOCAL, NULL, 2,(BYTE*)lnstalledPrinterlnfo, 
rj dwSize, &dwNeeded, InstalledPrinterlnfoReturned)) 

f: Messages->Add( M EnumPrinters() Failed!"); 



LocaIPrinterList->Clear(); 
while ((int)installedPrinterlnfoReturned > ++i) 
LocalPrinterList->Add(InstalledPrinterInfo[i].pPrinterName); 

free(InstalledPrinterlnfo); 
return LocalPrinterList; 

} 

TStringList *TPrinterControl::GetNetworkPrinters() 

{ 

TStringList *NetworkPrinterList = new TStringList; 
PRINTER_INFO_2 * InstalledPrinterlnfo = new PRINTER_INFO_2; 
DWORD InstalledPrinterlnfoReturned; 
DWORD dwSize; 
DWORD dwNeeded; 
int i; 



Messages-? Add("EnumPrinterDrivers() Failed!"); 





EnumPrinters(PRINTER_ENl^loNNECTIONS,NULL, 2XBYTE*)InstallefPmterlnfo, 

0, &dwSize, &lnstalledPrinterInfoReturned); 

InstalledPrinterlnfo = (PRlNTERJNFO_2*)malloc(dwSize); 
ZeroMemory( Installed Printer Info, dwSize); 

if (!EnumPrinters(PRINTER_ENUM_CONNECTIONS, NULL, 2,(BYTE*)lnstaNedPrinterInfo, 
dwSize, &dwNeeded, &lnstalIedPrinterInfoReturned)) 

f 

Messages->Add("EnumPrinters() Failed!"); 

} 

i = -i; 

N et work P r i nter L i st->C I ear( ) ; 
while ((int)InstalledPrinterlnfoReturned > 
NetworkPrinterList->Add(InstalledPrinterInfo[i].pPrinterName); 

free( InstalledPrinterlnfo); 
return NetworkPrinterList; 



AnsiString TPrinterControi::GetDefaultPrinter() 

J 

J char szPrinter[256]; 

3 AnsiString DefaultPrinter; 

H intnDelim; 

y GetProfiieString ("windows", "device", szPrinter, sizeof(szPrinter)); 
y DefaultPrinter = szPrinter; 

n nDelim = DefaultPrinter.Pos(V); 

^ DefaultPrinter = DefaultPrinter.SubString( I, nDelim - 1); 

7, return DefaultPrinter; 

^TStringList *TPrinterControl::GetLocalMonitors() 



MONITOR_INFO_2 *pLocalMonitors - new MONITORJNF02; 

TStringList * Local Monitors = new TStringList; 

DWORD dwSize; 

DWORD dwBytesNeeded; 

DWORD dwReturned; 

int i: 

//Get the memory needed. 

EnumMonitors(NULL, 2, NULL, 0, &dwSize, &dwReturned); 
pLocalMonitors - (MONITORJNFO_2*)malloc(dwSize); 



if (!EnumMonitors(NULL, 2, (unsigned char*)pLocalMonitors, dwSize, &dwBytesNeeded, 
&dw Returned)) 

f 

Messages->Add("EnumMonitorsO Failed!"); 

} 
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while ((int)dwReturned > +-H) 

LocalMonitors->Add(pLocalMonitors[i].pName); 





free(p Local Monitors); 



return Local Monitors; 



TStringList *TPrinterControl::GetLocalPorts() 
{ 

PORTJNFOJ *pLocalPorts = new PORTJNFOJ; 
TStringList *LocalPorts = new TStringList; 
DWORD dwSize; 
DWORD dwReturned; 
DWORD dwBytesNeeded; 
int i; 

EnumPorts(NULL, 1, (unsigned char*)pLocalPorts, 0, &dwSize, &dwReturned); 
pLocalPorts - (PORTJNFOJ *)malloc(dwSize); 

if (!EnumPorts(NULL, 1 , (unsigned char*)pLocal Ports, dwSize, &dwBytesNeeded, 
&dwReturned)) 

n Messages->Add("EnumPorts() Failed!"); 

3 !■ 



=s while ((int)dwReturned > ++i) 

n LocalPorts->Add(pLocalPorts[i].pName); 

^ free(pLocalPorts); 

f a return Local Ports; 



^AnsiString TPrinterControl::GetPortMonitor(AnsiString PortName) 

3{ 

PORTJNFO_2 *pPortInfo - new PORT JNF02; 
DWORD dwBytesNeeded; 
DWORD dwSize; 
DWORD dwReturned; 
int i; 

AnsiString MonitorName; 
AnsiString LprPortPath; 
TRegistry *Reg = new TRegistry; 

EnumPorts(NULL, 2, (unsigned char*)pPortInfo, 0, &dwSize, &dwReturned); 
pPortlnfo = (PORTJNFO_2*)malloc(dwSize); 

if (!EnumPorts(NULL, 2, (unsigned char*)pPortInfo, dwSize, &dwBytesNeeded, 
&dwReturned)) 



J 



Messages->Add("EnumPorts() Failed!"); 
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while ((int)dwReturned > ++i) 
{ 

if (0 == stricmp(PortName,c_str(), pPortlnfo[i].pPorfName)) 
MonitorName = pPortInfo[i].pDescription; 

} 

free(pPortfnfo); 

if (MonitorName.IsEmptyO) 
r 

//Check for LPR Port. 

Reg->RootKey = HKEYLOCALMACHINE; 

LprPortPath - "SYSTEMWCurrentControlSetWControlWPrintW"; 
LprPortPath = LprPortPath + "MonitorsWLPR PortWPortsW"; 
LprPortPath = LprPortPath + PortName; 

if (Reg->OpenKey(LprPortPath, false)) 
MonitorName - "LPR Port"; 

} 

Reg->C1oseKey(); 

i 

1 return MonitorName; 



"tbool TPrinterControl::SetDefaultPrinter(AnsiString PrinterToSetAsDefault) 

^ PrinterName = PrinterToSetAsDefault; 
! if(!SetDefaultPrinter()) 

t I 

Z Messages->Add("SetDefaultPrinter() Failed!"); 
f. return false; 

S } 

return true: 

In 
-s 

boot TPrinterControl::SetDefaultPrinter() 

{ 

HANDLE hPrinter; 
DWORD dwNeeded, dwReturned; 
PRINTER JNF02* pPrtlnfo; 
char szTemp[256]; 
AnsiString szPort; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str(),&hPrinter,NULL)) 

Messages->Add("OpenPrinter() Fai led ! "); 
return false; 



//Select the default printer. 
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if(NULL!=hPrinter){ 

// Get the buffer size needed 
GetPrinter(hPrinter,2,NULL,0,&dwNeeded); 

pPrtInfo=(PRINTER_INFO_2*)malloc(dwNeeded); 

ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrtInfo,dwNeeded,&dwReturned); 
szPort^pPrtlnfo->pPorfName; 

//Set the default printer. 
sprintf(szTemp, ,, %s,WlNSPOOL,%s", PrinterName.c_str(), szPort.c_str()); 
WriteProf]leString("windows'V'device",szTemp); 

SendNotifyMessage(HWND_BROADCAST, WMWININICHANGE, 0, 0L); 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 

} 

free(pPrtlnfo); 

3 return true; 

^1 



ybool TPrinterControl::WritePrinterInfo(AnsiString FileToSaveTo) 

H HANDLE hFile; 

DWORD dwBytes Written; 
x DWORD dwServerNameSize, 
dwPrinterNameSize, 
dwShareNameSize, 
dwPortNameSize, 
dwDriverNameSize, 
dwCommentSize, 
dwLocationSize, 
dwSepFileSize, 
dwPrintProcessorSize, 
dwDatatypeSize, 
dw Parameters Size, 
dvvPortMonitorSize; 

hFile = CreateFile(FileToSaveTo.c_str() ? GENERICWRITE, NULL, NULL, 
CREATEALWAYS, FILE ATTRIBUTE NORMAL, NULL); 

if (NULL = hFile) 

{ 

Messages->Add("CreateFile() Failed!"); 
return false; 

} 

PortMonitorDescription = GetPortMonitor(SelectedPrinterlnfo->pPortName); 
//Set the port to Local if not recognized. 
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if (PortMonitorDescription.IsI 




I'O) 



PortMonitorDescription = "Local Port"; 
SelectedPrinterInfo->pPortName = "LPT1 :"; 

} 

SetFi!ePointer(hFile, 0, 0, FILEBEGIN); 
//dwServerNameSize 

if (NULL == SeIectedPrinterInfo->pServerName) 

dwServerNameSize = 0; 
else 

dwServerNameSize = strlen(SelectedPrinterInfo->pServerName); 
//dwPrinterNameSize 

if (NULL = SelectedPrinterlnfo->pPrinterName) 

dwPrinterNameSize = 0; 
else 

dwPrinterNameSize = strlen(SelectedPrinterInfo->pPrinterName); 

//dwShareNameSize 

if (NULL == SelectedPrinterInfo->pShareName) 
dwShareNameSize = 0; 

0 else 

\2 dwShareNameSize = strlen(SelectedPrinterlnfo->pShareName); 

//dwPortNameSize 

1 j if (NULL = SeiectedPrinterInfo->pPortName) 
: iy dwPortNameSize = 0; 

« else 

dwPortNameSize = strlen(SelectedPrinterlnfo->pPortName); 
* m //dwDriverNameSize 

ZZ, if (NULL == SelectedPrinterInfo->pDriverName) 
™ dwDriverNameSize = 0; 



^ dwDriverNameSize = strlen(SelectedPrinterlnfo->pDriverName); 

O //dwCommentSize 

if (NULL == SelectedPrinterlnfo->pComment) 

dwCommentSize = 0; 
else 

dwCommentSize = strlen(SelectedPrinterInfo->pComment); 

//dwLocationSize 

if (NULL == SelectedPrinterlnfo->pLocation) 

dwLocationSize = 0; 
else 

dwLocationSize = strlen(SelectedPrinter!nfo->pLocation); 
//dwSepFileSize 

if (NULL = SeIectedPrinterlnfo->pSepFiie) 

dwSepFileSize = 0; 
else 

dwSepFileSize = strlen(SelectedPrinter!nfo->pSepFile); 
//d w Pri nt Processors i ze 



a ^ else 




if (NULL == SelectedPrinterlrf 

dwPrintProcessorSize = 0; 
else 




iPrintProcessor) 



dwPrintProcessorSize = strlen(SelectedPrinter!nfo->pPrintProcessor); 

//dwDatatypeSize 

if (NULL == Se!ectedPrinterInfo->pDatatype) 

dwDatatypeSize = 0; 
else 

dwDatatypeSize = strlen(SelectedPrinter!nfo->pDatatype); 
//dwParametersSize 

if (NULL == SelectedPrinterinfo->pParameters) 

dwParametersSize = 0; 
else 

dwParametersSize = strlen(SelectedPrinterInfo->pParameters); 

//dwPortMonitorSize 
if (PortMonitorDescription.lsEmptyO) 

dwPortMonitorSize = 0; 
else 

dwPortMonitorSize = strlen(PortMonitorDescription.cstr()); 

1 //Increment the sizes to account for null terminators. 

fl dwServerNameSize++; 

3 dwPrinterNameSize++; 

•J dwShareNameSize++; 

jj dwPortNameSize++; 

~ dwDriverNameSize++; 

n dwCommentSize-H-; 

dwLocationSize++; 
i dwSepFileSize++; 
a dwPrintProcessorSize++; 

dw Datatype Size++; 

f dwParametersSize++; 
i 

z. dwPortMonitorSize-H-; 

//Write the header. 

//dwSelectedPrinterlnfoSize 
WriteFile(hFile, (char*)&SelectedPrinterInfoSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwServerNameSize 

WriteFi le(h Fi le, (char*)&dwServerNameS ize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwPrinterNameSize 

WriteFile(hFi!e, (char*)&dwPrinterNameSize, 
sizeo^DWORD), &dwBytesWritten, NULL); 

//dwShareNameSize 

WriteFi le(h File, (char*)&dwShareNameSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwPortNameSize 




WriteFile(hFile, (char*)&dwPSPImeSize, 

sizeof(DWORD), &dwBytesWritten, NULL); 



//dwDriverNameSize 

WriteFile(hFile, (char*)&dwDriverNameSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwCommentSize 

WriteFile(hFile, (char*)&dwCommentSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwLocationSize 

WriteFile(hFile, (char*)&dwLocationSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwSepFiieSize 

WriteFile(hFile ; (char*)&dwSepFi!eSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//dwPrintProcessorSize 

WriteFiie(hFile, (char*)&dwPrintProcessorSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 

3 //dwDatatypeSize 

3 WriteFile(hFile, (char*)&dwDatatypeSize, 

n sizeof(DWORD), &dwBytesWritten, NULL); 

J //dw Parameters Size 

y WriteFile(hFile, (char^&dwParametersSize, 
j sizeof(DWORD), &dwBytesWritten, NULL); 

//dwPortMonitorSize 
A WriteFile(hFile, (char*)&dwPortMonitorSize, 
~ sizeof(DWORD), &dwBytesWritten, NULL); 

* //Write the data. 

f //pServerName 

J if (NULL = SelectedPrinterInfo->pServerName) 
WriteFile(hFile, (char*)"", 
dwServerNameSize, &dwBytesWritten, NULL); 

else 

WriteFiie(hFile, (char*)SelectedPrinter!nfo->pServerName, 
dwServerNameSize, &dwBytesWritten, NULL); 

//pPrinterName 

if (NULL == SelectedPrinterInfo->pPrinterName) 
WriteFile(hFile, (char*)"", 
dwPrinterNameSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinterInfo->pPrinterNarne, 
dwPrinterNameSize, &dwBytesWritten, NULL); 

//pShareName 

if (NULL == SelectedPrinterInfo->pShareName) 
WriteFile(hFile, (char*)"", 
dwShareNameSize, &dwBytesWritten, NULL); 




else 



WriteFile(hFile, (char*)SelectedPnnterInfo->pShareName, 
dwShareNameSize, &dwBytesWritten, NULL); 

//pPortName 

if (NULL = SeiectedPrinterInfo->pPortName) 
WriteFile(hFile, (char*)"", 
dwPortNameSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinterInfo->pPortName, 
dwPortNameSize, &d w Bytes Written, NULL); 

//pDriverName 

if (NULL == SeiectedPrinterInfo->pDriverName) 
WriteFile(hFile, (char*)"", 
dwDriverNameSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinterInfo->pDriverName, 
dwDriverNameSize, &dw Bytes Written, NULL); 

//pComment 

if (NULL == SelectedPrinterlnfo->pComment) 
WriteFile(hFiie, (char*)"", 
C3 dwCommentSize, &dwBytesWritten, NULL); 
\3 else 

ffl WriteFile(hFile, (char*)SelectedPrinterInfo->pComment, 
S3 dwCommentSize, &dwBytesWritten, NULL); 

fjj //pLocation 

,f if (NULL = SelectedPrinterInfo->pLocation) 
I = WriteFile(hFile, (char*)"", 
~ 5 dwLocationSize, &dwBytesWritten, NULL); 
e ' se 

^ WriteFile(hFi!e, (char*)SelectedPrinterlnfo->pLocation, 
dwLocationSize, &dwBytesWritten, NULL); 

r lz //pSepFile 

W if (NULL == SelectedPrinterInfo->pSepFile) 
13 WriteFile(hFile,(char*) ,,M , 

dwSepFileSize, &dwBytes Written, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinter!nfo->pSepFile, 
dwSepFileSize, &dwBytesWritten, NULL); 

//pPrintProcessor 

if (NULL == SelectedPrinterlnfo->pPrintProcessor) 
WriteFile(hFile, (char*)"", 
dwPrintProcessorSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinterlnfo->pPrintProcessor, 
dwPrintProcessorSize, &dwBytesWritten, NULL); 

//p Datatype 

if (NULL == SelectedPrinterlnfo->pDatatype) 
WriteFile(hFile, (char*)"", 
dw Datatypes ize, &dwBytesWritten, NULL); 

else 
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WriteFile(hFile, (ch ar * )Se I ecl^^' inter I nfo->p Datatype, 
dwDatatypeSize, &dwBytesWritten, NULL); 

//pParameters 

it (NULL == SelectedPrinterlnfo->pParameters) 
WriteFile(hFile, (char*)"", 
dw Para meters Size, &dw Bytes Written, NULL); 

else 

WriteFile(hFile, (char*)SelectedPrinter!nfo->pParameters, 
dwParametersSize, &dwBytesWritten, NULL); 

//pPortMonitorName 
if (PortMonitorDescription.IsEmptyO) 
WriteFile(hFile, (char*)"", 
dwPortMonitorSize, &dwBytesWritten, NULL); 

else 

WriteFile(hFile, (char*)PortMonitorDescription.c_str(), 
dwPortMonitorSize, &dwBytesWritten, NULL); 

//Attributes 

WriteFile(hFile, (CHAR*)&SelectedPrinterInfo->Attributes, 
sizeof(DWORD), &dwBytesWritten, NULL); 

O //Priority 

\3 WriteFile(hFile, (char*)&SelectedPrinterInfo->Priority, 
ffi sizeof(DWORD), &dwBytes Written, NULL); 

XX. 

3 j //DefaultPriority 

ffl WriteFile(hFile, (char*)&SeiectedPrinterInfo->DefaultPriority, 

" * sizeof(DWORD), &dwBytesWritten, NULL); 

^ : //StartTime 

J A WriteFile(hFile, (char*)&SelectedPrinterInfo->StartTime, 
%Z sizeof(DWORD), &dwBytesWritten, NULL); 

°^ //UntilTime 

« WriteFile(hFile, (char*)&SelectedPrinterInfo->UntilTime, 
^3 sizeof(DWORD), &dwBytesWritten, NULL); 

//Status 

WriteFile(hFile, (char*)&SelectedPrinterlnfo->Status, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//cJobs 

WriteFifeChFile, (char*)&SelectedPrinterlnfo->cJobs, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//AveragePPM 

WriteFiie(hFile, (char*)&SelectedPrinterlnfb->AveragePPM, 
sizeof(DWORD), &dwBytesWritten, NULL); 

//Now write the DevMode structure. 

//Entire structure size. 

WriteFile(hFile, (char*)&dwDevModeSize, 
sizeof(DWORD), &dwBytesWritten, NULL); 
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//dmSize 

WriteFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dinSize, 
sizeof(WORD), &dw Bytes Written, NULL); 

//dmDeviceName[32] 

WriteFile(hFile, (char*)SelectedPrinterlnfo->pDevMode->dmDeviceName, 
CCHDEVICENAME, &dwBytesWritten, NULL); 

//dmSpecVersion 

WriteFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmSpec Version, 
sizeof(WORD), &dwBytesWritten, NULL); 

//dmDriverVersion 

WriteFile(hFile, (char*)&SelectedPrinter!nfo->pDevMode->dmDriverVersion ? 
sizeof(WORD), &dwBytesWritten, NULL); 

//dmDriverExtra 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDriverExtra, 
sizeof(WORD), &dwBytesWritten, NULL); 

//dmFields 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dm Fields, 
sizeof(DWORD), &dwBytesWritten, NULL); 

-\2 //dmOrientation 

|n WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmOrientation, 
-J3 sizeof(short), &dwBytesWritten, NULL); 

f\\ //dmPaperSize 

= WriteFile(hFi!e, (char*)&SelectedPrinter!nfo->pDevMode->dmPaperSize, 
■Js sizeof(short), &dwBytesWritten, NULL); 

7 ^ //d m Paper Length 

WriteFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmPaperLength, 
Jft sizeof(short), &dwBytesWritten, NULL); 

?3 //dm Paper Width 

^ WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPaperWidth, 
t2 sizeof(short), &dwBytes Written, NULL); 

//dmScale 

WriteFile(hFile, (char*)&SeiectedPrinterlnfo->pDevMode->dmScale, 
sizeof(short), &dw Bytes Written, NULL); 

//dmCopies 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmCopies, 
sizeof(short), &dw Bytes Written, NULL); 

//dmDefauitSource 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDefaultSource, 
sizeof(short), &dwBytes Written, NULL); 

//dmPrintQuality 

WriteFile(hFiIe, (char*)&SelectedPrinterInfo->pDevMode->dmPrintOuality, 
sizeof(short), &dwBytesWritten, NULL); 



//dmColor 




WriteFile(hFile, (char*)&Sele3^PI*inter!nfo->pDevMode->dmColor, 

sizeof(short), &dwBytesWritten, NULL); 



//dmDuplex 

WriteFile(hFile ? (char*)&SelectedPrinterlnfo->pDevMode->dmDuplex, 
sizeof(short), &dwBytesWritten, NULL); 

//din Y Resolution 

WriteFile(hFile, (char*)&SelectedPrinter!nfo->pDevMode->dmYResolution, 
sizeof(short), &dwBytesWritten 7 NULL); 

//dmTTOption 

WriteFile(hFile ? (char*)&SelectedPrinterlnfo->pDevMode->dmTTOption, 
sizeof(short), &dwBytes Written, NULL); 

//dmCoIlate 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmCollate, 
sizeof(short), &dwBytesWritten, NULL); 

//dmFormName[32] 

WriteFiie(hFile, (char*)SelectedPrinterInfo->pDevMode->dmFormName, 
CCHFORMNAME, &dwBytesWritten, NULL); 

3 //dmBitsPerPel 

3 WriteFiIe(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmBitsPerPel, 
n sizeof(USHORT), &dwBytesWritten, NULL); 

y //dm Pels Width 

y WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPeisWidth, 
; sizeof(DWORD), &dwBytesWritten, NULL); 

| i 

//dmPelsHeight 

i WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPelsHeight, 
3 sizeof(DWORD), &dwBytesWritten, NULL); 

: 5 

Z //dmDisplayFlags 

™ WriteFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmDisplayFlags, 

^ sizeof(DWORDX &dwBytesWritten, NULL); 

//dmDisplayFrequency 

WriteFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDisplayFrequency ? 
sizeof(DWORD), &dwBytesWritten, NULL); 

CloseHandle(hFile); 

return true; 

i 
> 

bool TPrinterControl::ReadPrinterInfo(AnsiString FileToReadFrom) 

{ 

HANDLE hFile; 
DWORD dwBytesRead; 
DWORD dwServerNameSize, 

dw PrinterNameSize, 

dwShareNameSize, 

dwPortNameSize, 

dwDriverNameSize, 
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dwCominentSize, 
dwLocationSize, 
dwSepFileSize. 
dwPrintProcessorSize, 
dwDatatypeSize, 
dwParametersSize, 
dwPortMonitorSize; 
void *pPortMonitorName; 

hFile = CreateFile(FileToReadFrom.c_str(), GENERICREAD, 



F I L E_S H A RERE A D, NULL, OPEN_EXISTING, FILE ATTRIBUTE NORMAL, NULL); 
if (NULL = hFile) 



Messages->Add("CreateFiie() Failed!"); 
return false; 

} 

SetFilePointer(hFile, 0, 0, FILEBEGIN); 

//PrinterlnfoSize 
SelectedPrinterlnfoSize = 0; 
ReadFile(hFile, (char*)&SeiectedPrinterInfoSize, 
C3 sizeof(DWORD), &dwBytesRead, NULL); 

% S3? 

%n //dwServerNameSize 

\j dwServerNameSize = 0; 

ly ReadFile(hFile, (char*)&dwServerNameSize, 

f y sizeof(DWORD), &dwBytesRead, NULL); 

il Fj //dwPrinterNameSize 

^ dwPrinterNameSize = 0: 

^ ReadFile(hFile, (char*)&dwPrinterNameSize, 

% sizeof(DWORD), &dwBytesRead, NULL); 

//dwShareNameSize 

dwShareNameSize = 0; 
^ ReadFile(hFile, (char*)&dwShareNameSize, 
^ sizeof(DWORD), &dwBytesRead, NULL); 

//dwPortNameSize 
dwPortNameSize = 0; 
Read Fi le(h Fi le, (char*)&d wPortNameS ize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwDriverNameSize 
dwDriverNameSize = 0; 
Read Fi le(h Fi le, (char*)&d wDri verNameSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwCominentSize 
dwCommentSize = 0; 
ReadFile(hFile, (char*)&dwCommentSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwLocationSize 
dwLocationSize = 0; 




ReadFile(hFile, (char*)&dwLd^WnSize, 

sizeof(DWORDX &dwBytesRead, NULL); 



//dwSepFileSize 
dwSepFileSize = 0; 

ReadFile(hFile, (char*)&dwSepFileSize, 
sizeof(DWORD), AdwBytesRead, NULL); 

//dwPrintProcessorSize 
dwPrintProcessorSize = 0; 
ReadFi le(hFi le, (char* )&dwPrintProcessorSize, 
sizeof(DWORD), AdwBytesRead, NULL); 

//dwDalatypeSize 
dwDatatypeSize - 0; 

ReadFiie(hFile. (char*)&dwDatatypeSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dwParametersSize 
dwParametersSize = 0; 
ReadFile(hFile, (char*)&dwParametersSize, 
sizeof(DWORD), &dw Bytes Read, NULL); 

3 //dwPortMonitorSize 

3 dwPortMonitorSize = 0; 

H ReadFile(hFile, (char*)&dwPortMonitorSize, 

3 sizeof(DWORD), &dwBytesRead 9 NULL); 

y free(SelectedPrinterlnfo); 
= SelectedPrinterlnfo = NULL; 

n SelectedPrinterlnfo - (PRINTERJNFO_2*)malloc(SelectedPrinterlnfoSize) 
ZeroMemory(SelectedPrinterInfo, Selected Printer! nfoSize); 

^ SelectedPrinterInfo->pServerName = NULL; 

jl SelectedPrinterInfo->pServerName = (LPTSTR)malloc(dwServerNameSize) 
^ ZeroMemory(SelectedPrinterInfo->pServerName, dwServerNameSize); 

if SelectedPrinterlnfo->pPrinterName = NULL; 

rf SelectedPrinterlnfo->pPrinterName = (LPTSTR)malloc(dwPrinterNameSize 
ZeroMemory(SelectedPrinterlnfo->pPrinterName, dwPrinterNameSize); 

SelectedPrinterInfo->pShareName = NULL; 

SelectedPrinterInfo->pShareName = (LPTSTR)malloc(dwShareNameSize); 
ZeroMemory(SelectedPrinterlnfo->pShareName, dwShareNameSize); 

SelectedPrinterInfo->pPortName = NULL; 

SelectedPrinterInfo->pPortName - (LPTSTR)ma!loc(dwPortNameSize); 
ZeroMemory(SelectedPrinterInfo->pPortName, dwPortNameSize); 

Se!ectedPrinterlnfo->pDriverName = NULL; 

Selected PrinterInfo->pDriverName = (LPTSTR)malloc(dwDriverNameSize) 
ZeroMemory(SelectedPrinterlnfo->pDriverName, dwDriverNameSize); 

SelectedPrinterlnfo->pComment = NULL; 

Selected Printer1nfo->pComment = (LPTSTR)malloc(dwCommentSize); 
ZeroMemory(SelectedPrinterInfo->pComment, dwCommentSize); 
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Selected PrinterInfo->pLocati(^MlULL; 

SelectedPrinterInfo->pLocatioW|LPTSTR)malloc(dwLocationSize); 
ZeroMemory(SelectedPrinterinfo->pLocation, dwLocationSize); 

SelectedPrinterInfo->pSepFile = NULL; 

SelectedPrinterInfo->pSepFile - (LPTSTR)malloc(dwSepFileSize); 
ZeroMemory(SelectedPrinterInfo->pSepFile, dwSepFileSize); 

SelectedPrinterInfo->pPrintProcessor = NULL; 

SelectedPrinterInfo->pPrintProcessor = (LPTSTR)malloc(dwPrintProcessorS 
ZeroMemoryCSelectedPrinterlnfo^pPrintProcessor, dwPrintProcessorSize); 

SelectedPrinterInfo->pDatatype = NULL; 

SelectedPrinterInfo->pDatatype = (LPTSTR)malloc(dwDatatypeSize); 
ZeroMemory(SelectedPrinterlnfo->pDatatype, dwDatatypeSize); 

SelectedPrinterlnfo->pParameters - NULL; 

Selected Printerlnfo->pParameters = (LPTSTR)malloc(dwPararnetersSize); 
ZeroMemory(SelectedPrinterlnfo->pParameters, dw Parameters Size); 

pPortMonitorName = NULL; 
pPortMonitorName = malloc(dwPortMonitorSize); 
ZeroMemory(pPortMonitorName, dwPortMonitorSize); 

3 SelectedPrinterInfo->Attributes = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterInfo->Attributes = 0; 

J SelectedPrinterInfo->Priority - (DWORD)malloc(sizeof(DWORD)); 
J SelectedPrinterInfo->Priority = 0; 

fj SelectedPrinterInfo->DefaultPriority - (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterInfo->DefaultPriority = 0; 

3 SelectedPrinterInfo->StartTime = (DWORD)malloc(sizeof(DWORD)); 

7- Selected PrinterInfo->StartTime = 0; 

t SeIectedPrinterInfo->UntilTime = (DWORD)malloc(sizeof(DWORD)); 

^ SelectedPrinterlnfo->UntilTime = 0; 

SelectedPrinterInfo->Status = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterInfo->Status = 0; 

Se!ectedPrinterInfo-> c Jobs = (DWORD)malloc(sizeof(DWORD)); 
SelectedPrinterlnfo->cJobs = 0; 

SelectedPrinterInfo->AveragePPM - (DWORD)malloc(sizeof(DWORD)); 
Selected Printer I nfo->Average PPM = 0; 

//pServerName 

ReadFile(hFile, (char*)SelectedPrinterlnfo->pServerName, 
dwServerNameSize, &dw Bytes Read, NULL); 

//pPrinterName 

ReadFile(hFile, (char*)SelectedPrinterlnfo->pPrinterName, 
dwPrinterNameSize, &dwBytesRead, NULL); 

//pShareName 
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ReadFi1e(hFile, (char*)Select<^Mitei1nfo->pShareName, 

dwShareNameSize, &dwByt^TCead, NULL); 

//pPortName 

ReadFiIe(hFile, (char*)SelectedPrinterInfo->pPortName, 
dvvPortNameSize, &dwBytesRead, NULL); 

//pDriverName 

ReadFiie(hFiie, (char*)SeiectedPrinter!nfo->pDriverName, 
dwDriverNameSize, &dwBytesRead, NULL); 

//pComment 

ReadFile(hFile, (char*)SelectedPrinterInfo->pComment, 
dwCommentSize, &dwBytesRead, NULL); 

//pLocation 

ReadFile(hFile ? (char*)SelectedPrinterInfo->pLocation, 
dwLocationSize, &dwBytesRead, NULL); 

//pSepFiie 

ReadFile(hFile, (char*)SelectedPrinterInfo->pSepFiie, 
dvvSepFileSize, &dwBytesRead, NULL); 

0 //pPrintProcessor 

\3 ReadFile(hFile, (char*)SelectedPrinterInfo->pPrintProcessor, 
;tn dwPrintProcessorSize, &dw Bytes Read, NULL); 

1 j //pDatatype 

|y ReadFile(hFile, (char*)SelectedPrinter!nfo->pDatatype, 
lz dwDatatypeSize, &dwBytesRead, NULL); 

J " //p Parameters 

3 4 ReadFile(hFile, (char*)Se!ectedPrinterlnfo->pParameters, 
dwParametersSize, &dwBytesRead, NULL); 

? // p P o r t M o n i t o rN am e 

J if ReadFile(hFile, (char*)pPortMonitorName, 
j *3 dwPortMonitorSize, &dwBytesRead, NULL); 

1=1 PortMonitorDescription = (char*)pPortMonitorName; 

//Attributes 

ReadFile(hFile, (char*)&SeIectedPrinterInfo->Attributes, 
sizeof(DWORD), &dwBytesRead, NULL); 

//Priority 

ReadFi!e(hFiie, (char*)&SelectedPrinterlnfo->Priority, 
sizeof(DWORDX &dwBytesRead, NULL); 

//DefauItPriority 

ReadFi1e(hFi1e, (char*)&Se!ectedPrinterInfo->DefauItPriority 5 
sizeof(DWORD), &dwBytesRead, NULL); 

//StartTime 

ReadFile(hFile,(char*)&SeiectedPrinterInfo->StartTime, 
sizeof(DWORDX &dwBytesRead, NULL); 

//UntilTime 
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ReadFile(hFile,(char*)&SeledHrrinterlnfo->UntilTime, 

sizeof(DWORD), &dwBytesRead, NULL); 

//Status 

ReadFile(hFile, (char*)&SelectedPrinterInfo->Status, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dobs 

ReadFile(hFi!e, (char*)&SelectedPrinterlnfo->cJobs, 
sizeof(DWORD), &dwBytesRead, NULL); 

//AveragePPM 

ReadFile(hFile, (char*)&SelectedPrinter!nfo->AveragePPM, 
sizeof(DWORD), &dwBytesRead, NULL); 

//Now read the DevMode Structure size. 
ReadFile(hFile, (char*)&dwDevModeSize, 
sizeof(DWORD), &dwBytesRead, NULL); 

//Allocate the DevMode structure members. 
free(SelectedPrinterlnfo->pDevMode); 
SeIectedPrinterInfo->pDevMode = NULL; 

SeIectedPrinterInfo->pDevMode = (DEVMODE*)malloc(dwDevModeSize); 
ZeroMemory(SelectedPrinterInfo->pDevMode, dwDevModeSize); 

ZeroMemory(SelectedPrinterInfo->pDev!vlode->dmDeviceName, CCHDEVICENAME); 
ZeroMemory(SelectedPrinterInfo->pDevMode->dmFormName, CCHFORMNAME); 

//dm Size 

SelectedPrinterlnfo->pDevMode->dmSize = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmSize, 
sizeof(WORD), &dwBytesRead, NULL); 

//dmDeviceName[32] 

ReadFile(hFile, (char*)SelectedPrinterInfo->pDevIvlode->dmDeviceName, 
CCHDEVICENAME, &dwBytesRead, NULL); 

//dmSpecVersion 

SelectedPrinterInfo->pDevMode->dmSpec Version = 0; 
ReadFile(hFile. (char*)&SelectedPrinterInfo->pDevMode->dmSpec Version, 
sizeof(WORD), &dwBytesRead, NULL); 

//dmDriverVersion 

Selected PrinterInfo->pDevMode->dmDriverVersion = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDriverVersion, 
sizeof(WORD), &dw Bytes Read, NULL); 

//dmDriverExtra 

SelectedPrinterInfo->pDevMode->dmDriverExtra = 0; 
ReadFile(hFiie, (char*)&SelectedPrinter!nfo->pDevMode->dmDriverExtra, 
sizeof(WORD), &dw Bytes Read, NULL); 

//dmFields 

SelectedPrinterlnfo->pDevMode->dmFields = 0; 
ReadFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmFields, 
sizeof(DWORD), &dwBytesRead, NULL); 




//dmOrientation 

SelectedPrinterinfo->pDevMode->dmOrientation = 0; 
ReadFile(hFiIe, (char*)&SelectedPrinterInfo->pDevMode->dmOrientation :( 
sizeof(short), &dw Bytes Read, NULL); 

//dm Pa per Size 

SelectedPrinterInfo->pDevMode->dmPaperSize = 0; 
ReadFile(hFile, (char*)&SelectedPrinter!nfo->pDevMode->dmPaperSize, 
sizeof(short), &dwBytesRead, NULL); 

//dmPaperLength 

SelectedPrinterInfo->pDevMode->dmPaperLength - 0; 
ReadFile(hFile, (char*)&Selected Printer! nfo->pDevMode->dmPaperLength, 
sizeof(short), &dwBytesRead, NULL); 

//dm Paper Width 

SelectedPrinterInfo->pDevMode->dmPaperWidth = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPaperWidth, 
sizeof(short), &dwBytesRead, NULL); 

//dmScale 

SelectedPrinterlnfo->pDevMode->dmScale = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmScale, 
sizeof(short), &dwBytesRead, NULL); 

//dinCopies 

SelectedPrinterInfo->pDevMode->dmCopies = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmCopies, 
sizeof(short), &dwBytesRead, NULL); 

//dmDefaultSource 

SelectedPrinterInfo->pDevMode->dmDefaultSource = 0; 
ReadFile(hFi!e, (char*)&SelectedPrinterInfo->pDevMode->dmDefaultSource, 
sizeof(short), &dwBytesRead, NULL); 

^ //dmPrintQuality 

}Z Se!ectedPrinterlnfo->pDevMode->dmPrintQuaIity = 0; 

J? ReadFile(hFile, (char*)&Selected Printer! nfo->pDevMode->dmPrintQuality, 

^ sizeoflfshort), &dw Bytes Read, NULL); 

//dmColor 

SelectedPrinterInfo->pDevMode->dmColor = 0; 
ReadFile(hFile, (char*)&SelectedPrinterlnfo->pDevMode->dmColor, 
sizeof(short), &dw Bytes Read, NULL); 

//dmDupiex 

SelectedPrinterlnfo->pDevMode->dmDuplex = 0; 
ReadFile(hFile, (char*)&SelectedPrinter!nfo->pDevMode->dmDuplex, 
sizeof(short), &dwBytesRead, NULL); 

//dmYResolution 

SelectedPrinterInfo->pDevMode->dmYResolution = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmYResolution, 
sizeof(short), &dwBytesRead, NULL); 

//dmTTOption 

SelectedPrinterInfo->pDevMode->dmTTOption = 0; 
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ReadPile(hFile,(char*)&Sele5BPrinterInfo->pDevMode->dmTTOption, ^ 

sizeof(short), &dwBytesRead, NULL); 

//dmCollate 

SelectedPrinterInfo->pDevMode->dmCollate = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmCollate, 
sizeof(short), &dwBytesRead, NULL); 

//dm FormName[32] 

ReadFile(hFile, (char*)Se!ectedPrinterInfo->pDevMode->dmFormName ; 
CCH FORMNAME, &dw Bytes Read, NULL); 

//dmBitsPerPel 

SelectedPrinterlnfo->pDevMode->dmBitsPerPel = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmBitsPerPel, 
sizeof(USHORT), &dwBytesRead, NULL); 

//dm Pels Width 

Selected PrinterInfo->pDevMode->dmPelsWidth = 0; 
ReadFile(hFi!e, (char*)&SelectedPrinterlnfo->pDevMode->dmPelsWidth, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dmPelsHeight 

SelectedPrinter!nfo->pDevMode->dmPelsHeight = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmPelsHeight, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dmDisplayFlags 

SelectedPrinterInfo->pDevMode->dmDisplayFlags = 0; 
ReadFile(hFile, (char*)&Se!ectedPrinterlnfo->pDevMode->dmDisplayFlags, 
sizeof(DWORD), &dwBytesRead, NULL); 

//dmDisplay Frequency 

Selected PrinterInfo->pDevMode->dmDisplayFrequency = 0; 
ReadFile(hFile, (char*)&SelectedPrinterInfo->pDevMode->dmDisplayFrequency, 
sizeof(DWORD), &dw Bytes Read, NULL); 

CloseHandle(hFile); 
free(pPortMonitorName); 
pPortMonitorName = NULL; 

return true; 



bool TPrinterControi::SaveLocalPrinter(AnsiString PrinterToSave, AnsiString SaveName) 
{ 

PrinterName = PrinterToSave; 
NewPrinterName = SaveName; 
if (!SaveLocalPrinter()) 
{ 

Messages->Add("SaveLocalPrinter() Failed!"); 
return false; 



return true; 




bool TPrinterControl::SaveLocalWWter(AnsiString PrinterToSave) 
{ 

PrinterName = PrinterToSave; 
NewPrinterName = PrinterToSave; 
if (!SaveLoca!Printer()) 
{ 

Messages->Add("SaveLocaiPrinter() Failed! "); 
return false; 

} 



return true; 

s 



bool TPrinterControi::SaveLocalPrinter() 

{ 

HANDLE hPrinter; 
DWORD dwReturned; 
AnsiString MonitorName; 

NewPrinterName = CleanupFilename(NewPrinterName); 

//Open handle to printer. 
3 if( 0 = OpenPrinter(PrinterName.c_str(),&hPrinter,NULL)) 

3 { 

H Messages->Add("OpenPrinter() Failed!"); 
3 return false; 

J } 

J //Select the default printer, 

fl if(NULL == hPrinter) 

{ 

3, Messages->Add( M NULL Printer Handle!"); 

l * 

Z II Get the buffer size needed 

i GetPrinter(hPrinter ? 2,NULL,0,&SelectedPrinterInfoSize); 

free(SelectedPrinterlnfo); 

SelectedPrinterInfo = (PRINTERJNFO_2*)malloc(SelectedPrinterInfoSize) 
ZeroMemory(SelectedPrinterInfo, SelectedPrinterlnfoSize); 

//get the printer info 
if (!GetPrinter(hPrinter, 2, (unsigned char*)Se!ectedPrinterInfo, 
SelectedPrinterlnfoSize, &dwReturned)) 

f 

Messages-> Add("GetPrinter() Fai led ! "); 

} 

//Get the DevMode structure 

dwDevModeSize = DocumentProperties(NULL, hPrinter, 
PrinterName.c_str(), NULL, NULL, 0); 

SelectedPrinterlnfo->pDevMode = (DEVMODE*)malloc(dwDevModeSize); 

DocumentProperties(NULL, hPrinter, PrinterName.c_str(), 
SelectedPrinterlnfo->pDevMode ? NULL, DM OUT BUFFER); 
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//Close the handle to th^Wter. 
ClosePrinter(hPrinter); 

SelectedPrinterInfo->pPrinterName = NewPrinterName.c_str(); 
WritePrinterInfo(PrtInfoPath + "W" + NewPrinterName + ".Pit"); 

TRegTools *RegDump = new TRegTools( H K E YLOC A L_M AC H 1 N E, 
"SYSTEMWCurrentControlSetWControlWPrintWPrintersW" + PrinterName + 
"WPrinterDriverData", PrtlnfoPath + "\\ M + NewPrinterName + ".Dev"); 

delete RegDump; 

RegDump = NULL; 

return true; 

} 

bool TPrinterControl::CreateLocalPrinter(AnsiString PrinterToCreate, 
AnsiString NewPrinterToCreate) 

i 

PrinterName = PrinterToCreate; 

NewPrinterName = NewPrinterToCreate; 

if (!CreateLocaIPrinter()) 
r 

„ i 

J Messages->Add( n CreateLoca]Printer() Failed!"); 
\J return false; 

m } 

:u =1 

"1st 

1J return true; 

m 



^ "boo! TPrinterControl::CreateLocalPrinter(AnsiString PrinterToCreate) 

1^ PrinterName = PrinterToCreate; 
Jfj NewPrinterName = PrinterToCreate; 
Vz if (!CreateLocalPrinter()) 

Messages->Add("CreateLocalPrinter() Failed!"); 
^ return false; 
} 



return true; 



bool TPrinterControl::CreateLocalPrinter(AnsiString PrinterToCreate, 
AnsiString NewPrinterToCreate, TStringList *Users) 



if(!Users) 
return false; 

PrinterName = PrinterToCreate; 
NewPrinterName = NewPrinterToCreate; 

i f ( ! Create Local Pri nter()) 
{ 

Messages->Add("CreateLocalPrinter() Failed!"); 
return false; 
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Printer Add AccessRights(NewPrinterName, Users, CONTROLFULL); 
return true; 

} 

bool TPrinterControl::CreateLocalPrinter() 

{ 

HANDLE hPrinter; 

TStringList *LocalPrinters = new TStringList; 
int i; 

STEP 400 

//Read in the PRINTER_INFO_2 structure from file, 
if (!ReadPrinterInfo(PrtInfoPath + "W" + PrinterName + ".Pit")) 

Messages->Add("Unable to Read Printer File: " + PrinterName); 
return false; 

STEP410 

SelectedPrinterInfo->pPrinterName = (LPTSTR)malloc(strlen(NewPrinterName.c_str()) + 1 ); 
-*f SelectedPrinterlnfo->pPrinterName = NewPrinterName.c_str(); 

V s Local Printers = GetLocalPrintersQ; 



|y while (LocalPrinters->Count > ++i) 
-~ x 

|n if (0 = stricmp(LocalPrinters->Strings[i].c_str(), NewPrinterName.c_str())) 

{ 

| ^ Loca 1 Printers->Free(); 
f*S return true; 



: 2Z Local Printers->Free(); 

" if (!NewPortMonitor.IsEmpty() && !NewPortName.IsEmpty()) 

{ 

PortMonitorDescription = NewPortMonitor; 

if (0 = NewPortMonitor.AnsiCompareIC("Client Printer Port")) 
NewPortName = GetlcaClientPort(NewPortName); 

SelectedPrinterInfo->pPortName - (LPTSTR)malloc(strlen(NewPortName.c_str()) + 1); 
SelectedPrinterlnfo->pPortName = NewPortName.c_str();; 

} 

STEP 420 

if (! ValidateMonitor(PortMonitorDescription)) 

{ 

Messages->Add(" Invalid Port Monitor: " + PortMonitorDescription); 
return false; 

> 

STEP 430 
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if (!ValidatePort(SelectedPrintlBffo->pPortName, PortMonitorDescription)) 

> 

TRegistry *reg = new TRegistry(); 
reg->RootKey = HKEY_LOCAL_MACHINE; 
if (reg->OpenKey( M Software\\Microsom\WindowsNT\\CurrentVersion\\Ports n , false)) 
{ 

try 

i 

reg->WriteString( H CLIENT\\LPTl ""); 
reg->WriteString( ,, CLIENT\\LPT2:" 5 ,,H ); 
reg->WriteString( H CLIENT\\COM I :'\ ""); 
reg->WriteString( , 'CLIENT\\COM2: H ) ""); 

} 

catch(...) 

{ 
} 

i 

reg->CloseKey(); 
reg->Free(); 

if (!ValidatePort(SelectedPrinterInfo->pPortName, PortMonitorDescription)) 

Messages->Add("Invalid Port:"); 
13 return false; 

~- } } 

y STEP 440 

f il if (!ValidateDriver(SelectedPrinterlnfo->pDriverName)) 

If] Messages->Add("InvaIid Driver:"); 
return false; 

J* ) 

;JrjSTEP450 

#t //Add the printer 

^ hPrinter = AddPrinter(NULL, 2, (unsigned char*)SelectedPrinterlnfo); 

^ 3 if (NULL == hPrinter) 
{ 

DWORD dwError = 0; 
dwError = GetLastError(); 

Messages->Add("FaiIed to Install Printer: " + NewPrinterName + 
" Error Number " + String(dw Error)); 
return false; 

} 

STEP 460 

DocumentProperties(NULL, hPrinter, NewPrinterName.c_str(), 
SelectedPrinterlnfo->pDevMode, Selected Printer I nfo->pDevMode, 
DM_IN_BUFFER | DMOUTBUFFER); 

SetPrinter(hPrinter, 2, (BYTE*)SelectedPrinterInfo, 0); 

ClosePrinter(hPrinter); 
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//Write the Device specific De^BBe data. Some drivers do not store this 
//in the registry. 

TRegistry *Reg = new TRegistry; 

Reg->RootKey = HKEYLOCALMACH1NE; 
if(Reg->OpenKey( n SYSTEM\\CurrentControlSet\\Control\\Print\\Printers\\ ,, + 
NewPrinterName, false)) 

{ 

TRegTools *RegDump = new TRegTools(PrtInfoPath + "\\" + PrinterName + ".Dev", 
H K EYLOCA L_M ACH I N E, 

"SYSTEMWCurrentControlSetWControlWPrintWPrintersW" + 

New PrinterName + "WPrinterDriverData"); 
delete RegDump; 
RegDump = *NULL; 

} 

Reg->CloseKey(); 
Reg->Free(); 

STEP 470 

PrinterSetCurrentUserOnlyRightsOJewPrinterName); 

PrinterAddAccessRights(NewPrinterName, "SYSTEM", CONTROLFULL); 

T 

3 SendNotifyMessage(HWND_BROADCAST, WMDEVMODECHANGE, 0L, 
n (LPARAM)(LPCSTR)NewPrinterName.c_str()); 



U NewPortName = ""; 
« NewPortMonitor = ""; 

return true; 

"DRIVER JNFO_3 *TPrinterControl::GetRemoteDriverInfo(AnsiString ServerName, AnsiString DriverName) 

ii 

£ DWORD dwSize; 
3 DWORD dwNeeded; 
^ DWORD dwReturned; 

DRIVERJNFO_3 *pDriverInfoRetum; 

DRIVER_INFO_3 *pDrv = new DRIVER_INFO_3; 

EnumPrinterDrivers(ServerNaine.c_str() ? NULL, 3, (unsigned char*)pDrv, 
0, &dwSize, &dwReturned); 

pDrv = (DRIVER JNFO_3*)malloc(dwSize); 
ZeroMemory(pDrv, dwSize); 

if (!EnumPrinterDrivers(ServerName.c_str(), NULL, 3, (unsigned char*)pDrv, 
dwSize, &dwNeeded, &dwReturned)) 

{ 

Messages->Add("EnumPrinterDrivers() Failed!"); 

i 
i 

int i = -l; 

while ((int)dwReturned > ++i) 
{ 
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if (0 == stricmp((const char^WverName.c_str(), 
(const char*)pDrv[i].pName)) 



pDriverlnfoReturn = &pDrv[i]; 
break; 

} 



if ((int)dwReturned <= i) 
return NULL; 

return pDriverlnfoReturn; 



TStringList *TPrinterControl::CopyDriverFiles(TStringList *SourceFiies) 
{ 

AnsiString LocalDriverDir; 

AnsiString DestFileName; 

TStringList *ReturnStrings = new TStringList; 

BYTE *pTemp; 

DWORD dwBufferSize; 

DWORD dwBytesNeeded; 

0 int i; 

CfS dwBufferSize - 1024; 

\d pTemp = (BYTE*)malIoc(dwBufferSize); 

„r if (0 = GetPrinterDriverDirectory(NULL, NULL, 1 , pTemp, dwBufferSize, 
if\ &dwBytesNeeded)) 

1 " return ERROR; 

LocalDriverDir = (char*)pTemp; 
LocalDriverDir = LocalDriverDir + "\\"; 

•!J i = -l; 

while (SourceFiles->Count > 

~™ { 

DestFileName = LocalDriverDir + 
ExtractFileName(SourceFiles->Strings[i]); 

::CopyFile(SourceFiles->Strings[i].c_str(X DestFileName.c_str(), NULL); 

ReturnStrings->Add(DestFi!eName); 

f 

free(pTemp); 
return ReturnStrings; 

» 

bool TPrinterControl::ValidateMonitor(AnsiString MonitorName) 

i 

MONITORJNFO_2 *pLocaiMonitors = new MONITOR_INFO_2; 
DWORD dwSize; 
DWORD dwBytesNeeded; 
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DWORD dwReturned; 
int i; 

if (0 == MonitorNaine.AnsiConipareIC( n Client Printer Port")) 

{ 

return true; 



//Get the memory needed. 

EnumMonitors(NULL, 2, NULL, 0, &dwSize, &dwReturned); 
pLocalMonitors = (MONITORJNFO_2*)malloc(dwSize); 

if (EnumMonitors(NULL, 2, (unsigned char*)pLocal Monitors, dwSize, &dwBytesNeeded, 
&dwReturned)) 



while ((int)dwReturned > ++i) 
{ 

if (0 == stricmp(MonitorName.c_str(), pLocalMonitors[i].pName)) 

break; 



\J if (i >= (int)dwReturned || 0 >= dwReturned) 



^bool TPrinterControl::ValidatePort(AnsiString PortName, AnsiString PortMonitor) 
«{ 

Ji HINSTANCE hLib; 

« PORT INFOJ *pLocalPorts = new PORTJNFOJ ; 
PORTJNFOJ Portlnfo; 
DWORD dwSize; 
DWORD dwReturned; 
DWORD dwBytesMeeded; 
int i; 

EnumPoi1s(NULL, I, (unsigned char*)pLocal Ports, 0, &dwSize, &dwReturned); 
pLocalPorts - (PORTJNFOJ *)malloc(dwSize); 

EnumPorts(NULL, I, (unsigned char*)pLocalPorts, dwSize, &dwBytesNeeded, &dwReturned); 



while ((int)dwReturned > ++j) 
{ 

if (0 == stricmp(PortName.c_str(), pLocalPorts[i].pName)) 
break; 

} 

free(pLocal Ports); 



free(pLocalMonitors); 
return false; 



|f| free(pLocalMonitors); 
_ return true; 






//We found the port. 
if ((int)dwReturned > i) 
return true; 

hLib = LoadLibrary("winspool.drv M ); 

if(NULL = hLib) 
return false; 

ADDPORTEX pfnAddPortEx - (ADDPORTEX)GetProcAddress(hLib, "AddPortExA"); 
Portlnfo.plMame = PortName.c_str(); 

if(pfnAddPortEx) 

{ 

if (!(*pfnAddPortEx)(NULL, 1, (unsigned char*)&Portlnfo, 
(WCHAR*)PortMonitorDescription.c_str())) 

{ 

FreeLibrary(hLib); 
return false; 



DRIVER IN FO_3 *pRemoteDriver; 
DRIVER_INFO_3 NewLocalDriverlnfo; 
TStringList *LocaiDrivers = new TStringList; 
TStringList *DriverFiiesToCopy = new TStringList; 
TStringList *CopiedDriverFiies = new TStringList; 
int i; 
intj; 
int nPos; 

int NullTerminatorsFound; 
BYTE *pTemp; 

DWORD dwBufferSize = 1024; 
LocalDrivers = GetLocalDriversQ; 



while (LocalDrivers->Count > ++i) 
{ 

if (0 = stricmp(LocalDrivers->Strings[i].c_str(), DriverName.c_str())) 
{ 

LocalDrivers->Free(); 
return true; 



pRemoteDriver = GetRemoteDriverInfo(SourceServerName, DriverName); 

if (NULL == pRemoteDriver) 
return false; 



FreeLibrary(hLib); 
return true; 



bool TPrinterControl::ValidateDriver(AnsiString DriverName) 




DriverFilesToCopy->Add(pR^K&Driver->pDriverPath); 
DriverFilesToCopy->Add(pRemoteDriver->pDataFile); 
DriverFilesToCopy->Add(pRemoteDriver->pConflgFile); 
DriverFilesToCopy->Add(pRemoteDriver->pHelpFile); 



j = -i; 

NullTerminatorsFound = 0; 

pTemp - (BYTE*)malloc(dwBufferSize); 

ZeroMemory(pTemp, dwBufferSize); 

while (++i < (int)dwBufferSize && 2 > NullTerminatorsFound) 

i 

if ('\0 f == pRemoteDriver->pDependentFiles[i]) 

{ 

DriverFilesToCopy->Add((char*)pTemp); 
ZeroMemory(pTemp, dwBufferSize); 



j = -i; 

NullTerminatorsFound++; 
continue; 



C3 pTemp[++j] = pRemoteDriver->pDependentFiles[i]; 

5 

\3 CopiedDriverFiles = CopyDriverFiles(DriverFilesToCopy); 

w 

f y NewLocalDriverlnfo.cVersion = pRemoteDriver->cVersion; 

NewLocaiDriverlnfo.pName = pRemoteDriver->pName; 
|f= NewLocaiDriverlnfo.pEnvironment = pRemoteDriver->pEnvironment; 
3 NewLocalDriverlnfo.pMonitorName = pRemoteDriver->pMonitorName; 

NewLocalDriverlnfo.pDefaultDataType = pRemoteDriver->pDefaultDataType; 



ia i = - 1; 

™- NewLocalDriverlnfo.pDriverPath = CopiedDriverFiles->Strings[++i].c_str(); 

NewLocalDriverlnfo.pDataFile = CopiedDriverFiles->Strings[++i].c_str(); 
" NewLocalDriverlnfo.pConfigFile = CopiedDriverFiles->Strings[++i].c_str(); 

NewLocalDriverlnfo.pHeipFile = CopiedDriverFiles->Strings[++i].c_str(); 

NewLocalDriverInfo.pDependentFiles-= (char*)malloc(dwBufferSize); 
ZeroMemory(NewLocalDriverInfo.pDependentFiles, dwBufferSize); 
nPos = -1; 

while (CopiedDriverFiles->Count > ++i) 
{ 

j = 0; 

while(CopiedDriverFiles->Strings[i].Length() >= ++j) 
NewLocaiDriverlnfo.pDependentFi1es[++nPos] = CopiedDriverFiles->Strings[i] 



NewLocalDriverlnfo.pDependentFiles[++nPos] = '\0'; 

v 

NewLoca!Driverlnfo.pDependentFiles[++nPos] = '\0'; 



if (!AddPrinterDriver(NULL, 3, (unsigned char*)&NewLocalDriver!nfo)) 

{ 

delete pRemoteDriver; 
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pRemoteDriver = NULL; 
Local Dri vers->Free(); 
return false; 



delete pRemoteDriver; 
pRemoteDriver = NULL; 
Local Dri vers->Free(); 



return true; 



bool TPrinterControl::PrinterSetOwnerOnlyRights(AnsiString PrinterName) 

s 

HANDLE hPrinter = NULL; 

PRINTERDEFAULTS pdPrinter; 

LPPRINTERJNFOJ pPrinterlnfo = NULL; 
PACCESS_ALLOWED_ACE pTempAce; 
PSID psidOwner; 
PACL pPrinterNewACL; 
DWORD dwBytesNeeded; 
BOOL bOwnerDefaulted; 

// Assign desired access level to PRINTERDEAFULTS 
pdPrinter.DesiredAccess - PRINTERALLACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open the printer and add the User 

if (0 != OpenPrinter(PrinterName.c_str(),&hPrinter,&pdPrinter)) 

f 
i 

//Get the required value of dwBytesNeeded. And allocate the memory for pPrinterlnfo. 

GetPrinter(hPrinter,3,(LPBYTE)pPrinterInfo,0,&dwBytesNeeded); 

pPrinterlnfo = (LPPRINTERJNFOJ)malloc(dwBytesNeeded); 

//Get the actual printer stuff and add the ACE to the DACL. 

if (0 != GetPrinter(hPrinter,3,(LPBYTE)pPrinterInfo,dwBytesNeeded,&dwBytesNeeded)) 

{ 



if (GetSecurityDescriptorOwner(pPrinterlnfo- 
>pSecurityDescriptor,&psidOvvner,&bOwnerDefaulted)) 

{ 

//Multiply by 2 to get the size needed for 2 ACEs. 

DWORD dwSize = sizeof(ACL) + 2*(sizeof(ACCESS_ALLOWED_ACE) + 
GetLengthSid(psidOwner) - sizeof(DWORD)); 

pPrinterNewACL = (PACL)mailoc(dwSize); 
InitializeAcl(pPrinterNewACL, dwSize, ACLREVISION); 

pTempAce = (PACCESS_ALLOWED_ACE)malloc(sizeof(ACCESS_ALLOWED_ACE)); 

//For some reason, there are 2 ACEs for "Full Control".Add the ACEs. 
AddAccessAllowedAce(pPrinterNewACL,ACL_REVIS10N,GENERIC_ALL,psidOwner); 
if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

l,(LPVOID*)&pTempAce)) 

pTempAce->Header.AceFlags = OBJECT JNHERIT ACE | 
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INHERITONLYACE; 




AddAccessAllowedAce(pPrinterNewACL,ACL_REVISION,PRINTER_ALL_ACCESS,psidOwner); 

if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount -,(LPVOID*)&pTempAce)) 
pTempAce->Header.AceFlags - CONTAINERJNHERITACE; 

Initia!izeSecurityDescriptor(pPrinterInfo->pSecurity Descriptor, 
SECURITY_DESCRIPTOR_REVISION); 

SetSecurityDescriptorDacl(pPrinterInfo->pSecurityDescriptor,TRUE ? 
pPrinterNewACL,FALSE); 

SetPrinter(hPrinter,3 s (LPBYTE)pPrinterlnfo,0); 

} 

} 

free(pPrinterlnfo); 

} 

else 
return false; 

//Close the printer. 
J ClosePrinter(hPrinter); 

1 return true; 



\2) 

:l ;i 

5 

= ^bool TPrinterControl::PrinterSetCurrentUserOnlyRights(AnsiString PrinterName) 

I" HANDLE hPrinter = NULL; 

i± PRINTERDEFAULTS pdPrinter; 

LPPRINTERINF03 pPrinterlnfo - NULL; 

If* PACCESS_ALLOWED_ACE pTempAce; 

Ify PSID psidOwner; 

PSID psidCurrentUser; 
1 PACL pPrinterNewACL; 

u DWORD dwBytesNeeded = 0; 

DWORD dwSizeDomain = 256; 

BOOL bOwnerDefaulted; 
char szUserName[256]; 
char szDomainController[256]; 
char szDomainName[256]; 
PSID_NAME_USE peUse; 

// Assign desired access level to PRINTERDEAFULTS 
pdPrinter.DesiredAccess = PRINTERALLACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open the printer and add the User 

if (0 != OpenPrinter(PrinterNamex_str(),(&hPrinter,&pdPrinter)) 

{ 

//Get the required value of dwBytesNeeded. And allocate the memory for pPrinterlnfo. 

GetPrinter(hPrinter,3,(LPBYTE)pPrinterlnfo,0,&dwBytesNeeded); 

pPrinterlnfo = (LPPRINTERJNFO_3)malloc(dwBytesNeeded); 
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//Get the actu^^iter stuff and add the ACE to the DACL. 

it (0 !=GetPrinter(hPrinter,3XLPBYTE)pPrinterlnfo,dwBytesNeeded,&dwBytesNeeded)) 

f 

strcpy(szDomainController, getenvf'LOGONSERVER")); 
strcpy(szUserName, getenv("USERNAME")); 
strcpy(szDomainName, getenv("USERDOMAlN n )); 

dwBytesNeeded = 0; 
dwSizeDomain = 256; 

LookupAccountName(szDomainController, szUserName, psidCurrentUser, 
&dwBytesNeeded, szDomainName, &dwSizeDomain, peUse); 

peUse = (PSID_MAME_USE)malloc(sizeof(SID_NAME_USE)); 
psidCurrentUser = (PSID)malloc(dwBytesNeeded); 

if (LookupAccountName(szDomainControiler, szUserName, psidCurrentUser, 
&dwBytesNeeded, szDomainName, &dwSizeDomain, peUse)) 
{ 

//Multiply by 2 to get the size needed for 2 ACEs. 

DWORD dwSize = sizeof(ACL) + 2*(sizeof(ACCESS_ALLOWED_ACE) + 
GetLengthSid(psidCurrentUser) - sizeof(DWORD)); 

pPrinterNewACL - (PACL)malloc(dwSize); 
3 Initia1izeAcl(pPrinterNewACL dwSize, ACLREVISION); 

H pTempAce = (PACCESS_ALLOWED_ACE)malloc(sizeof(ACCESS_ALLOWED_ACE)); 

«? 

d //For some reason, there are 2 ACEs for "Full Control". Add the ACEs. 

"AddAccessAllowedAce(pPrinterNewACL,ACL_REVISION 9 GENERIC_ALL,psidCurrentUser); 
fS if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

"l,(LPVOID*)&pTempAce)) 

jl pTempAce->Header.AceFlags = OBJECT INHERIT ACE | 

=dNHERIT_ONLY ACE; 

^AddAccessAllowedAce(pPrinterNewACL,ACL_REVISION,PRINTER_ALL_ACCESS,psidCurrentUser); 
» if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

J I ,(LPVOI D*)&pTempAce)) 

pTempAce->Header.AceFlags = CONTAINER INHERIT ACE; 

InitializeSecurityDescriptor(pPrinterlnfo->pSecurityDescriptor, 
SECURITY DESCRIPTOR REVISION); 

SetSecurityDescriptorDacl(pPrinterlnfo->pSecurityDescriptor,TRUE, 
pPrinterNewACL^FALSE); 

SetPrinter(hPrinter,3,(LPBYTE)pPrinterInfo,0); 



free(pPrinterlnfo); 

} 

else 
return false; 

//Close the printer. 
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ClosePrinter(hPrinter); 
return true; 



bool TPrinterControl::PrinterAddAccessRights(AnsiString PrinterName, TStringList *Users, int nAccess) 
{ 

int i - -1; 



while (Users->Count > ++i) 
{ 

PrinterAddAccessRights(PrinterName, Users->Strings[i], nAccess); 



return true; 



bool TPrinterControl "Printer AddAccessRights(AnsiString PrinterName, AnsiString UserName, int nAccess) 



ACL SIZE INFORMATION ACLInformation; 

PRINTERDEFAULTS pdPrinter; 

LPPRINTERJNFOJ pPrinterlnfo = NULL; 

PACCESS^ALLOWED ACE pTempAce; 

HANDLE hPrinter = NULL; 

PACL pPrinterACL; 

PACL pPrinterNewACL; 

DWORD dwBytesNeeded; 

BOOL bDaciPresent - FALSE; 

BOOL bDaclDefaulted - FALSE; 

int i; 

//Used for LookupAccountName(). 

PSIDpsidUserName; 

PSID_NAME_USEpeUse; 

char szDomainName[256]; 

DWORD dwSizeDomain = 256; 



C3 // Assign desired access level to PRINTER DEFAULTS 

pdPrinter.DesiredAccess = PRINTERALLACCESS; 
pdPrinter.pDevMode = NULL; 
pdPnnter.pDatatype = NULL; 



//Let's get the SID of the user. 
dwSizeDomain = 256; 
dwBytesNeeded = 0; 

LookupAccountName(NULL, UserName.c_str(), psidUserName, &dwBytesNeeded, 
szDomainName, &dwSizeDomain, peUse); 

peUse - (PSID_NAME_USE)malloc(sizeof(SID_NAME_USE)); 
psidUserName = (PSID)malloc(dwBytesNeeded); 

if (0 == LookupAccountName(NULL, UserName.c_str(), psidUserName, &dwBytesNeeded, szDomainName, 
&dwSizeDomain, peLise)) 
f 
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free(peUse); 
free(psidUserName); 

return false; 

} 



//Open the printer and add the User 

if (0 != OpenPrinter(PrinterName.c_str(),&hPrinter,&pdPrinter)) 

{ 

//Get the required value of dwBytesNeeded. And allocate the memory for pPrinterlnfo. 

GetPrinter(hPrinter ;i 3,(LPBYTE)pPrinterInfo,0,&dwBytesNeeded); 

pPrinterlnfo = (LPPRINTER INFOJ)rnalloc(dwBytesNeeded); 

//Get the actual printer stuff and add the ACE to the DACL. 

if (0 != GetPrinter(hPrinter,3,(LPBYTE)pPrinteiinfo,dwBytesNeeded ? &dwBytesNeeded)) 

{ 

// Get printer ACL 

GetSecurityDescriptorDacl(pPrinterInfo->pSecurityDescriptor,&bDaclPresent, 
&pPrinterACL,&bDacl Defaulted); 

// Get the number of entries in the ACL 

GetAclInformation(pPrinterACL,&ACLInformation,sizeof(ACLlnformation), 
I AciSizelnformation); 

I 

J //Multiply by 2 to get the size needed for 2 ACEs. 

j DWORD dwSize = pPrinterACL->AclSize + 2*(sizeof(ACCESS„ALLOWED_ACE) + 

I GetLengthSid(psidllserName) - sizeof(DWORD)); 

I pPrinterNewACL - (PACL)malloc(dwSize); 

E InitializeAcl(pPrinterNewACL, dwSize, ACL_REVISION); 

I //Copy the old ACL's ACEs to the new ACL. 

{ pTempAce = (PACCESS_ALLOWED_ACE)malloc(sizeof(ACCESS_ALLOWED ACE)); 

: i = -l; 

* while (pPrinterACL->AceCount > ++i) 

? { 

J if (0 != GetAce(pPrinterACL, i,(LPVOID*)&pTempAce)) 

AddAce(pPrinterNewACL, ACL_REVISION, MAXDWORD, pTempAce, 

pTempAce->Header.AceSize); 

} 

switch(nAccess) 

case(COMTROLFULL): 

//For some reason, there are 2 ACEs for "Full Control". Add the ACEs. 

AddAccessAllowedAce(pPrinterNewACL,ACL_REVISION,GENERIC_ALL,psidLiserName); 

if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 

! ? (LPVOID*)&pTempAce)) 

pTempAce->Header.AceFIags = OBJECTJNHERIT ACE | 

INHERIT ONLY ACE; 



AddAccessAllowedAce(pPrinterNewACL,ACL_REVISION,PRINTER_ALL_ACCESS,psidUserName); 

if (0 != GetAce(pPrinterNewACL,pPrinterNewACL->AceCount - 
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U(LPVOID*)&pTempAce)) 

pTempAce->Header.AceFlags = C0NTAINERJNHER1TACE; 

break; 

default: 

break; 

} 

InitializeSecurityDescriptor(pPrinterInfo- 
>pSecurityDescriptor,SECURITY_DESCRIPTOR_REVISION); 

SetSecurityDescriptorDacl(pPrinterlnfo->pSecurity Descriptor ,TRUE,pPrinterNewACL,FALSE); 

SetPrinter(hPrinter,3,(LPBYTE)pPrinterInfo,0); 

} 

free(pPrinterlnfo); 

free(peUse); 

else 

return false; 

//Close the printer. 
ClosePrinter(hPrinter); 

3 return true; 

ybool TPrinterControl::RemapPort(AnsiString Port, AnsiString Monitor) 

z if (Port.lsEmpty() || Monitor. IsEmptyO) 
= f 

Messages->Add("Unable to remap Port!"); 
return false; 

3 } 

i I 

Z NewPortName = Port; 

j: NewPortMonitor = Monitor; 

^ return true; 

x 
j 

TStringList *TPrinterControi::GetConfigFileList() 

{ 

TStringList *ConfigFiles = new TStringList; 
TStringList *Filenames = new TStringList; 
int i; 

EnumerateFiles(PrtInfoPath, Filenames, false, NULL); 



while (Filenames->Count > ++i) 
f 

Filenames->Strings[i] ~ JustFilenameL(Filenames->Strings[i]); 
//Check for dots. 

if (0 = Filenames->Strings[i].AnsiComparelC(". n ) || 
0 = Filenames->Strings[i].AnsiCo!npareIC(".. ,, )) 
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continue; 

} 

Filenames->Strings[i] = Filenaines->Strings[i].SubString( 
I , (Filenames->Strings[i].Length() - 4)); 

if (0 > ConfigFiles->IndexOf(Filenames->Strings[i]) && 
!Fiienames->Strings[i].IsEmptyO) 

f 

ConfigFiles->Add(Filenames->Strings[i]); 

i 
> 

» 

Fi!enames->Free(); 
return ConfigFiles; 

} 

TStringList *TPrinterControl::LoadPrinterInfoFromFile(AnsiString PrinterName) 

f 
x 

TStringList *PrinterInfo = new TStringList; 

AnsiString ReturnedPrinterName; 
(3 AnsiString ReturnedPortName; 
\2 AnsiString ReturnedPortMonitorName; 

3.: 3 
\ i 

y if (!ReadPrinterlnfo(PrtInfoPath + "\\" + PrinterName + ".Pit")) 

» Messages->Add("Error reading Printerlnfo from file!"); 

1 ' ReturnedPrinterName = SelectedPrinterInfo->pPrinterName; 
ReturnedPortName = SelectedPrinterInfo->pPortName; 

ReturnedPortMonitorName = GetPortMonitor(SelectedPrinterlnfo->pPortName); 

\Z. PrinterInfo->Add(ReturnedPrinterName); 
PrinterInfo->Add(ReturnedPortName); 
Printerlnfo->Add(ReturnedPortMonitorName); 

return Printerlnfo; 

} 

booi TPrinterControi::PrinterPropertiesDia!og(AnsiString PrinterName, HANDLE hWnd) 

{ 

HANDLE hPrinter; 
DWORD dwNeeded, dwReturned; 
PRINTERJNFO__2* pPrtlnfo; 
PR1NTERDEFAULTS pdPrinter; 

// Assign desired access level to PR1NTERDEAFULTS 
pdPrinter.DesiredAccess = PRINTERALLACCESS; 

pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str(), &hPrinter, &pdPrinter)) 
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Messages->Add("OpenPrinter() Failed!"); 
return false; 

} 

//Select the default printer. 
if(NULL!=hPrinter){ 

// Get the buffer size needed 
GetPrinter(hPrinter,2,NULL 5 0,&dwNeeded); 

pPrtInfo=(PRINTERJNFO_2*)malloc(dwNeeded); 
ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrtInfo,dwNeeded,&dwReturned); 

if (!PrinterProperties(hWnd, hPrinter)) 
f 

Messages->Add("PrinterProperties() Failed!"); 

ClosePrinter(h Printer); 
free(pPrtlnfo); 
return false; 

a } 

% J 

|H //Close the handle to the printer, 

i 2 ClosePrinter(hPrinter); 

y > 

fy 

« free(pPrtlnfo); 

in t t 

return true; 



J^bool TPrinterControl::DeleteLocalPrinter(AnsiString PrinterName) 

m 

If HANDLE hPrinter; 

C3 PRINTERDEFAULTS pdPrinter; 

// Assign desired access level to PRINTER_DEAFULTS 
pdPrinter.DesiredAccess = PRINTERALLACCESS; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str(), &hPrinter, &pdPrinter)) 

{ 

Messages->Add("DeletePrinter() Failed!"); 
return false; 

} 

//Select the default printer. 
if(NULL — hPrinter) 

{ 

Messages->Add("DeletePrinter() Failed! NULL Handle."); 
return false; 
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SetPrinter(h Printer, 0, N U LLl^^NTERCONTROLPU RG E); 

Sleep(250); 



DeletePrinter(h Printer); 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 

return true; 

} 

bool TPrinterControl::DeletePrinterConfig(AnsiString PrinterConflgName) 

{ 

AnsiString PrinterConflgPath; 
bool bReturn = true; 



PrinterConflgPath = PrtlnfoPath + "\\" + PrinterConflgName; 

if (FileExists(PrinterConfigPath + ".Pit") && 
FileExists(PrinterConfigPath + ".Dev")) 

{ 

if (!DeleteFile(PrinterConfigPath + ".Prt") || 
!DeleteFiIe(PrinterConfigPath + ".Dev")) 

s 

bReturn - false; 

} 

f 



■S SB { 

1' 8 Messages->Add( n Files Not Found: " + PrinterConflgPath); 
j\ bReturn = false; 

i= } 

* if return bReturn; 

9> 

CJAnsiString TPrinterControl::GetPrinterShareName(AnsiString PrinterName) 

{ 

HANDLE hPrinter; 

DWORD dwNeeded, dwReturned; 

PRINTER_INFO_2* pPrtlnfo; 
PRINTERDEFAULTS pdPrinter; 
AnsiString ShareName; 
AnsiString ServerName; 
AnsiString FullShareName; 

// Assign desired access level to PRINTERDEAFULTS 
pdPrinter.DesiredAccess - PRINTERACCESSJJSE; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str(), &hPrinter, &pdPrinter)) 

i 

Messages->Add("OpenPrinter() Failed!"); 
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return ""; 

//Select the default printer. 
if(NULL!=hPrinter){ 

// Get the buffer size needed 
GetPrinter(hPrinter,2,NULL,0,&dwNeeded); 

pPrtlnfo-(PRINTERJNFO_2*)ma!loc(dwNeeded); 
ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrtInfo ) dwNeeded ; ,&dwReturned); 

ShareName = pPrtInfo->pShareName; 
ServerName = pPrtlnfo->pServerName; 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 

} 

free(pPrtlnfo); 

o 

\1 *f (ServerName. IsEmptyO) 

\tf\ FullShareName = ShareName; 

* =i else 

;i j FullShareName = ServerName + "W" + ShareName; 
"~ = return FullShareName; 

;5> 




3 ^AnsiString TPrinterControl::GetPrinterFullName(AnsiString PrinterName) 

C3 HANDLE hPrinter; 

C3 DWORD dwNeeded, dwReturned; 

PRINTERJNFO 2* pPrtlnfo; 

PR1NTER_DEFAULTS pdPrinter; 

AnsiString FullName; 

// Assign desired access level to PRINTERDEAFULTS 
pdPrinter.DesiredAccess = PRINTER_ACCESS_USE; 
pdPrinter.pDevMode = NULL; 
pdPrinter.pDatatype = NULL; 

//Open handle to printer. 

if(!OpenPrinter(PrinterName.c_str(), &hPrinter, &pdPrinter)) 

{ 

Messages->Add("OpenPrinter() Failed!"); 
return ""; 

} 

//Select the default printer. 
if(NULL!-hPrinter){ 
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// Get the buffflIRe needed 
GetPrinter(hPrinter,2,NULL,0 ? &dwNeeded); 





pPrtInfo=(PRINTERJNF0^2*)malloc(dwNeeded); 
Zero M em ory(pPrt Info, dwNeeded); 



//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrt!nfo,dwNeeded,&dwReturned); 



FuilMame 



pPrtInfo->pPrinterName; 



//Close the handle to the printer. 
ClosePrinter(hPrinter); 



free(pPrtlnfo); 



return FullName; 



bool TPrinterControi::ClearNetworkPrinters() 

{ 

DWORD dwBytesNeeded; 
DWORD dwPrtRet; 
LPPRINTER INFO_4 pPrtlnfo; 
int i=0; 

//Get the memory needed for structure. 
EnumPrinters(PRlNTER_ENUM_CON^ 



if 

— i (!EnumPrinters(PRINTER_ENUM_CO 
;3et)) 

J return false; 

//Delete the printer connection, 
for (i - 0; i < (int)dwPrtRet; i++) 

DeletePrinterConnection((pPrtInfo++)->pPrinterName); 



bool TPrinterControl::SetIcaPrinterRights() 

{ 

TStringList * Local PrinterList = new TStringList; 

PRINTER JNFO_2 *InstalledPrinterInfo - new PRINTERINF02; 

DWORD InstalledPrinterlnfoReturned; 

DWORD dwSize; 

DWORD dwNeeded; 

AnsiString Comment; 

AnsiString PrinterName; 



n 



//Allocate the memory for the structure. 



pPrtlnfo =(LPPRINTER_INFO_4)malloc(dwBytesNeeded); 



//Enumerate the printers. 



return true; 
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int i; 

EnuinPrinters(PRINTER_EMUM_LOCAL,NULL, 2,(BYTE*)InstalledPrinterlnfo, 
0, &dwSize, &lnstalledPrinterlnfoReturned); 

InstalledPrinterlnfo = (PRINTERJNFO_2*)malloc(dwSize); 
ZeroMemory(InstalledPrinterInfo, dwSize); 

if (!EnumPrinters(PRINTER_ENUM_LOCAL, NULL, 2,(BYTE*)InstalledPrinterlnfo, 
dwSize, &dwNeeded, &InstalledPrinterInfoReturned)) 

{ 

return false; 

} 

while ((int)lnstalledPrinterlnfoReturned > ++i) 
{ 

PrinterName = lnstalledPrinterlnfo[i],pPrinterName; 

Comment = InstalledPrinterlnfo[i].pComment; 

if (0 < Comment.AnsiPosfAuto Created Client Printer")) 

{ 

PrinterSetOwnerOnlyRights(PrinterName); 

PrinterAddAccessRights(PrinterName, ''SYSTEM", CONTROLFULL); 



i free( In stalled Printer Info); 
j return true; 

sbool TPrinterControl::CopyConflguration(AnsiString Source, AnsiString Destination) 

' ! { 

AnsiString PrinterConflgSourcePath; 

~ AnsiString PrinterConfigDestPath; 

.J 

^ PrinterConflgSourcePath = PrtlnfoPath + "W" + Source; 

J PrinterConfigDestPath - PrtlnfoPath + "W" + Destination; 

3 if (FileExists(PrinterConflgSourcePath + ".Pit") && 
FileExists(PrinterConfigSourcePath + ".Dev")) 

{ 

if (0 = ::CopyFile(String(PrinterConfigSourcePath + ".Prt n ).c_str(), 
String(PrinterConflgDestPath + ".Prt n )x_str(), NULL)) 

{ 

return false; 

i 

if (0 = ::CopyFile(String(PrinterConflgSourcePath + n .Dev M ).c_str(), 
String(PrinterConfigDestPath + n .Dev n ).c_str() 5 NULL)) 

r 
i 

DeleteFile(PrinterConfigDestPath + ".Pit"); 
return false; 



else 
f 

Messages->Add("Files Not Found: " + PrinterConflgSourcePath); 
return false; 
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# 



return true; 

} 

bool TPrinterControl::SaveLocalDriver(AnsiString DriverName) 
f 

AnsiString PrinterName; 
HANDLE hPrinter; 

PrinterName = "PMPAdmin#" + DriverName; 
Selected Printer I nfo->pPrinterName = PrinterName.c_str(); 
SelectedPrinterinfo->pPortName = "LPT1 :"; 
SelectedPrinterInfo->pDriverName = DriverName.c_str(); 
SelectedPrinterInfo->pPrintProcessor = "winprint"; 

//Add the printer 

hPrinter - AddPrinter(NULL, 2, (unsigned char*)SelectedPrinterInfo); 

if (NULL = hPrinter) 
return false; 

ClosePrinter(h Printer); 
3 hPrinter = NULL; 

f» if (!SaveLocalPrinter(PrinterName, DriverName)) 

a { 

H DeleteLocalPrinter(PrinterName); 
=1 return false; 
•= s 

'' 1 DeleteLocalPrinter(PrinterName); 
return true; 

~\ 



MnsiString TPrinterControl::C!eanupFilename(AnsiString Filename) 

J{ 

J int Index; 
int i; 

TStringList *InvalidList = new TStringList; 

if (Filename.IsEmptyO) 
return Filename; 

InvalidList->Add( M \\ n ); 

InvalidList->Add(7"); 

lnvalidList->Add(":"); 

InvalidList->Add("?"); 

InvalidList->Add( n * M ); 

i = -l; 

while (InvalidList->Count > ++i) 
{ 

Index = Filename.AnsiPos(InvalidList->Strings[i]); 

if(0< Index) 

{ 



FIG. 6.57 



Filename. Delete(lndex 
Filename = CleanupFilename(Filename); 

I 

1 

return Filename; 



AnsiString TPrinterControl::GeticaClientPort(AnsiString OldPort) 

/ 

int BackSlash - 0; 
AnsiString New Port; 
AnsiString Port; 

BackSlash = OldPort.AnsiPosfW"); 

Port = OldPort.SubString( (BackSlash + 1), 
(OldPort. Length() - BackSlash) ); 

NewPort - "ClientW" + String(getenv("CLIENTNAME n )) + "#\\" + Port; 



return NewPort; 



f*PRINTER_INFO_2 *TPrinterControl::GetPrinterInfo2(AnsiString PrinterName) 

i{ 

j HANDLE hPrinter; 

f] DWORD dwNeeded, dwReturned; 

't PRINTER JNF0 2* pPrtlnfo; 

* PRINTER DEFAULTS pdPrinter; 

II Assign desired access level to PRINTERDEAFULTS 

* pdPrinter. Desired Access = PRINTERACCESSUSE; 
f s pdPrinter.pDevMode = NULL; 

|f pdPrinter.pDatatype = NULL; 

3 

3 //Open handle to printer. 

3 if(!OpenPrinter(PrinterNaine.c_str(), &hPrinter, &pdPrinter)) 

{ 

return NULL; 

} 

//Select the default printer. 
if(NULL!=hPrinter){ 

//Get the buffer size needed 
GetPrinter(hPrinter,2,NULL,0,&dwNeeded); 

pPrt!nfo-(PRINTERJNFO_2*)malloc(dwNeeded); 
ZeroMemory(pPrtInfo, dwNeeded); 

//get the printer info 

GetPrinter(hPrinter,2,(unsigned char*)pPrtlnfo,dwNeeded,&dwReturned); 

//Close the handle to the printer. 
ClosePrinter(hPrinter); 
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return pPrtlnfo; 

} 

AnsiString TPrinterControl::GetStatusString(DWORD dwStatus) 

{ 

AnsiString Status; 

switch(dwStatus) 
{ 

case(PRINTER_STATUS__BUSY): 
Status - "Busy"; 
break; 

case(PRINTER_STATUS_DOOR_OPEN): 
Status = "Door Open"; 
break; 

case(PRINTERSTATUSERROR): 
Status = "Error"; 
break; 

case(PRINTER STATUS INITIALIZING): 
Status = "Initializing"; 
break; 

3 case(PRINTER STATUS IO ACTIVE): 
3 Status = "I/O Active"; 

f\ break; 

3 case(PRINTER STATUS JV1ANUAL FEED): 
7t Status = "Manual Feed"; 

I = break; 

S case(PRINTERSTATUSNOTONER): 
= Status = "No Toner"; 

break; 

case(PRINTER_STATUS_NOT AVAILABLE): 
; Status = "Not Available"; 
f break; 

y case(PRINTERSTATUSOFFLINE): 
J Status - "Offline"; 

3 break; 

3 case(PRINTER STATUS OUT OF MEMORY): 
Status - "Out of Memory"; 
break; 

case(PRINTER_STATUS_OUTPUT_BIN_FULL): 
Status - "Output Bin Full"; 
break; 

case(PRINTER STATUS_J»AGE PUNT): 
Status = "Page Punt"; 
break; 

case(PRINTER_STATUS_PAPERJAM): 
Status = "Paper Jam"; 
break; 

case(PRINTER_STATUS__PAPER_OUT): 
Status = "Paper Out"; 
break; 

case(PRINTER_STATUS_PAPER PROBLEM): 
Status = "Paper Problem"; 
break; 

case(PRINTER_STATUS_PAUSED): 
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Status - "Paused"; 
break; x 
case(PRINTER_STATUS PENDING DELETION): 
Status - "Pending Deletion"; 
break; 

case(PRINTER_STATUS POWER SAVE): 
Status = "Power Save"; 
break; 

case(PRINTER_STATUS_PRINTING): 
Status = "Printing"; 
break; 

case(PRINTER_STATUS_PROCESSING): 
Status = "Processing"; 
break; 

case(PRINTER_STATUS_SERVER UNKNOWN): 
Status = "Server Unknown"; 
break; 

case(PRINTER_STATUS TONER LOW): 
Status - "Toner Low"; 
break; 

case(PRINTER_STATUS_USER INTERVENTION): 
Status = "User intervention"; 
break; 

case(PRINTER STATUS WAITING): 
Status - "Waiting"; 
break; 

case(PRINTER_STATUS WARMING UP): 

Status -"Warming Up"; 

break; 
default: 

Status - "Ready"; 



break; 




J"; return Status; 




